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**/ 
***/ 



***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

/* 

***/ 

/* 

***/ 

#include <stdio.h> 
#include <sys/errno. h> 

#include <shast ra/shast ra . h> 

#include <shast ra/utils/list . h> 

#include <shast ra/datacomm/shast raDataH . h> 
#include <shast ra/datacomm/shast raldH. h> 
#in elude <shast ra/datacomm/shast raldTagH. h> 
#in elude <shast ra/datacomm/audioBiteH. h> 
#in elude <shast ra/datacomm/videoImgH. h> 
#in elude <shast ra/datacomm/ipimage. h> 
#in elude <shast ra/datacomm/xsCntlDataH. h> 

#include <shast ra/network/ server. h> 
#include <shast ra/network/mplex. h> 
#include <shast ra/network/hostMgr . h> 
#include <shast ra/network/sharedMem. h> 

#include <shast ra/shautils/shautils . h> 
#in elude <shastra/shautils/kernelFronts.h> 
#in elude <shast ra/shautils/sesMg rFronts . h> 
#in elude <shast ra/shautils/sesMg r Fronts P. h> 
#in elude <shastra/shautils/clientHosts.h> 

#in elude <shastra/front/frontP.h> 
#include <shast ra/f ront/f ront . h> 
#include <shast ra/f ront/f ront St ate. h> 
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#in elude <shastra/front/frontCollClient.h> 
#in elude <shastra/front/frontCollClientP.h> 
#in elude <shastra/front/collabCntl.h> 

#define USESHAREDMEM 

#define checkConnO \ 

if (pHostColl->fStatus == shaError) { \ 

fprintf ( stderr, "Connection to SesMgr is bad!\n"); \ 
return -1; \ 

} 

#define sendReqString(s, arg) \ 

if (hostSendQueuedRequest(pHostColl, s, arg) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 

fprintf ( stderr, "Error in Sending Shastra Operation Request\n"); \ 

return -1; \ 

} 

#define sendDataSt ring ( s ) \ 

if (cmSendString(pHostColl->fdSocket, s) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 

fprintf ( stderr, "Error in Sending Shastra Operation Data\n"); \ 

return -1; \ 

} 

#define Shast raldln ( f iledesc, pShald) \ 

if (shastraIdIn(pHostColl->fdSocket, pShald) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 
fprintf ( stderr, "Error Receiving SID from SesMgr\n"); \ 
return -1; \ 

} 

#define Shast raldOut ( f iledesc, pShald) \ 

if (shastraIdOut(pHostColl->fdSocket, pShald) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 
fprintf ( stderr, "Error Sending SID to SesMgr\n"); \ 
return -1; \ 

} 

#define Shast raldsln ( f iledesc, pShalds) \ 

if (shastraIdsIn(pHostColl->fdSocket, pShalds) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 
fprintf ( stderr, "Error Receiving SIDs from SesMgr\n"); \ 
return -1; \ 

} 

#define Shast raldsOut ( f iledesc, pShalds) \ 
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if (shastraIdsOut(pHostCoU->fdSocket, pShalds) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 
f printf ( stderr, "Error Sending SIDs to SesMgr\n"); \ 
return -1; \ 

} 

#define Shast raldTagln ( f iledesc, pShaldTag) \ 

if (shastraIdTagIn(pHostColl->fdSocket, pShaldTag) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 

f printf ( stderr, "Error Receiving SIDTag from SesMgr\n"); \ 

return -1; \ 



#define Shast raldTagOut ( f iledesc, pShaldTag) \ 

if (shastraIdTagOut(pHostColl->fdSocket, pShaldTag) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 
f printf ( stderr, "Error Sending SIDTag to SesMgr\n"); \ 
return -1; \ 



#define Shast raldTagsIn ( f iledesc, pShaldTags) \ 

if (shastraIdTagsIn(pHostColl->fdSocket, pShaldTags) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 

f printf ( stderr, "Error Receiving SIDTags from SesMgr\n"); \ 

return -1; \ 



#define Shast raldTagsOut ( f iledesc, pShaldTags) \ 

if (shastraIdTagsOut(pHostColl->fdSocket, pShaldTags) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 

f printf ( stderr, "Error Sending SIDTags to SesMgr\n"); \ 

return -1; \ 



#define Shast raULongOut ( f iledesc, pULong) \ 

if (shaULongOut(pHostColl->fdSocket, pULong) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 
f printf ( stderr, "Error Sending pULong to SesMgr\n"); \ 
return -1; \ 



#define Shast raULongln ( f iledesc, pULong) \ 

if (shaULongIn(pHostColl->fdSocket, pULong) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 

f printf ( stderr, "Error Receiving pULong from SesMgr\n"); \ 

return -1; \ 
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#define Shast ralntOut ( f iledesc, pint) \ 

if (shaIntOut(pHostColl->fdSocket, pint) == -l){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 
f printf ( stderr, "Error Sending pint to SesMgr\n"); \ 
return -1; \ 



#define Shast ralntln ( f iledesc, pint) \ 

if (shaIntIn(pHostColl->fdSocket, pint) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 

f printf ( stderr, "Error Receiving pint from SesMgr\n"); \ 

return -1; \ 



#define AudioBiteln ( f iledesc, pABite) \ 

if (audioBiteIn(pHostColl->fdSocket, pABite) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 

f printf ( stderr, "Error Receiving ABite from SesMgr\n"); \ 

return -1; \ 



#define AudioBiteOut ( f iledesc, pABite) \ 

if (audioBiteOut(pHostColl->fdSocket, pABite) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 
f printf ( stderr, "Error Sending ABite to SesMgr\n"); \ 
return -1; \ 



#define Videolmgln ( f iledesc, pVImg) \ 

if (videoImgIn(pHostColl->fdSocket, pVImg) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 

f printf ( stderr, "Error Receiving VImg from SesMgr\n"); \ 

return -1; \ 



#define VideoImgOut ( f iledesc, pVImg) \ 

if (videoImgOut(pHostColl->fdSocket, pVImg) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 
f printf ( stderr, "Error Sending VImg to SesMgr\n"); \ 
return -1; \ 
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#define TextBiteIn(f iledesc, pTBite) \ 

if (shaStringIn(pHostColl->fdSocket, pTBite) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 

f printf ( stderr, "Error Receiving TBite from SesMgr\n"); \ 

return -1; \ 



#define TextBiteOut ( f iledesc, pTBite) \ 

if (shaStringOut(pHostColl->fdSocket, pTBite) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 
f printf ( stderr, "Error Sending TBite to SesMgr\n"); \ 
return -1; \ 



#define Pnt rBiteln ( f iledesc, pTBite) \ 

if (shaDoublesIn(pHostColl->fdSocket, pTBite) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 

f printf ( stderr, "Error Receiving PntrB from SesMgr\n"); \ 

return -1; \ 



#define Pnt rBiteOut ( f iledesc, pTBite) \ 

if (shaDoublesOut(pHostColl->fdSocket, pTBite) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 
f printf ( stderr, "Error Sending PntrB to SesMgr\n"); \ 
return -1; \ 



#define Cu rsorBiteln ( f iledesc, pTBite) \ 

if (shaDoublesIn(pHostColl->fdSocket, pTBite) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 

f printf ( stderr, "Error Receiving CursorB from SesMgr\n"); \ 

return -1; \ 



#define Cu rsorBiteOut ( f iledesc, pTBite) \ 

if (shaDoublesOut(pHostColl->fdSocket, pTBite) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 

f printf ( stderr, "Error Sending CursorB to SesMgr\n"); \ 

return -1; \ 



#define ImageDataln ( f iledesc, plmage) \ 

if (ipimageDataIn(pHostColl->fdSocket, plmage) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 

f printf ( stderr, "Error Receiving image from SesMgr\n"); \ 
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return -1; \ 

} 

#define ImageDataOut ( f iledesc, plmage) \ 

if (ipimageDataOut(pHostColl->fdSocket, plmage) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 
f printf ( stderr, "Error Sending image to SesMgr\n"); \ 
return -1; \ 

} 



#define PictDataBitesIn ( f iledesc, pPCData) \ 

if (pictPiecesIn(pHostColl->fdSocket, pPCData) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 

f printf ( stderr, "Error Receiving PCData from SesMgr\n"); \ 

return -1; \ 

} 

#define PictDataBitesOut ( f iledesc, pPCData) \ 

if (pictPiecesOut(pHostColl->fdSocket, pPCData) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 
f printf ( stderr, "Error Sending PCData to SesMgr\n"); \ 
return -1; \ 

} 

#define XSCntlBitesIn ( f iledesc, pXSCData) \ 

if (xsCntlDatasIn(pHostColl->fdSocket, pXSCData) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 

f printf ( stderr, "Error Receiving PCData from SesMgr\n"); \ 

return -1; \ 

} 

#define XSCntlBitesOut ( f iledesc, pXSCData) \ 

if (xsCntlDatasOut(pHostColl->fdSocket, pXSCData) == -1){ \ 
pHostColl->f Status = shaError; \ 

closedChannelCleanupHandler(pHostColl->fdSocket) ; \ 
f printf ( stderr, "Error Sending PCData to SesMgr\n"); \ 
return -1; \ 

} 



cmCommand f rontCollCmdTab [] = FRONTCOLL_CLIENTCMDS; 

#def ine NFRONTCOLL_CLIENTCMDS (sizeof (f rontCollCmdTab)/sizeof (cmCommand) ) 

/* number of commands */ 

int f rontCollNCmds = NFRONTCOLL_CLIENTCMDS; 

cmCommand f rontCollInCmdTab [ ] = FRONTCOLL_CLIENTINCMDS; 

#def ine NFRONTCOLL_CLIENTINCMDS (sizeof (frontCollInCmdTab) /sizeof (cmCommand 
)) 
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/* number of commands */ 

int f rontCollNInCmds = NFRONTCOLL_CLIENTINCMDS; 

shaCmdData f rontCollCmdData; 



/* 

* Function 
*/ 
int 

collTellLeaderRespHandler(fd) 
int fd; 

{ 

shastraldTag sldTag, sesmSIdTag; 
unsigned long lldTag; 
hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collTellLeaderRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &sesmSIdTag ) ; 
ShastraIdTagIn(fd, &sIdTag); 
ShastraULongIn(fd, &UdTag); 

collabSetLeaderOprn ( sldTag, sesmSIdTag, lldTag); 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_COLL_TELLLEADER) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collTerminateReq( pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_COLL_TERMINATE, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collTerminateRespHandler(f d ) 
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int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (collabTerminateFunc != NULL) { 
(*collabTerminateFunc) (pHostColl) ; 

} 

else{ 

fprintf(stderr, "collabTerminateFunc ( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done ~ %s\n", REQ_COLL_TERMINATE) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collHelpReq(pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqString(REQ_HELP, NULL); 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collHelpRespHandler(fd) 
int fd; 

{ 

standardHelpRespHandler(f d) ; 

sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_HELP) ; 
showCollablnf o(pFrontAppData->sbMsgBuf) ; 
return 0; 



/* 

* Function 
*/ 
int 

collJoinReq(pHost, pSId, pPermTag, pCmdData) 
hostData *pHost; 
shastrald *pSId; 
shastraldTag *pPermTag; 
shaCmdData *pCmdData; 
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int collSocket; 
int status; 
hostData *pHostColl; 

if((pSId == NULL) || (pPermTag == NULL)){ 

fprintf (stderr, "collJoinReq( )->bad args!\n"); 
return -1; 

} 

if (pCmdData == NULL){ 

fprintf ( stderr, "collJoinReq( )->Warning : No Control Data!\n"); 

} 

status = cmClientConnect2Server(pSId->nmHost, pSId->nmApplicn, 

pSId->iPort, &collSocket) ; 
if (status == -1) { 

sprintf (pFrontAppData->sbMsgBuf , "collJoinReq ( ) — Couldn't connect\n"); 

showCollablnf o(pFrontAppData->sbMsgBuf ) ; 

return -1; 
} else { 

sprintf (pFrontAppData->sbMsgBuf, "collJoinReq ( ) — connected\n" ) ; 
showCollablnf o(pFrontAppData->sbMsgBuf) ; 



pHostColl = (hostData *) malloc ( sizeof (hostData) ) ; 
memset ( pHostColl, 0, sizeof (hostData) ) ; 
pHostColl->fdSocket = collSocket; 
pHostColl->lSIDTag = pSId->lSIDTag ; 
pHostColl->pSId = copyId(pSId, NULL); 
pHostColl->sendList = listMakeNew( ) ; 
pHostColl->recvList = listMakeNew( ) ; 
pHostColl->fStatus = shaWait2Send ; 

if (f rontCollCmdData.pCmdTab == NULL) { 

memset (&f rontCollCmdData, 0, sizeof ( shaCmdData) ) ; 

f rontCollCmdData. pCmdTab = f rontCollCmdTab; 

f rontCollCmdData. nCmds = f rontCollNCmds; 

f rontCollCmdData. pCmdTabln = f rontCollInCmdTab; 

f rontCollCmdData. nCmdsIn = f rontCollNInCmds; 
/*CHECK, will allow only one kind of collab*/ 
/*add cmd data once per session type*/ 

cmJoinCmdData(&f rontCollCmdData, pCmdData) ; 

} 

shaKernFlags [collSocket] = SHASESMGR; 

if (mplexRegisterChanneK pHostColl->f dSocket, shaClientHandler, 
&f rontCollCmdData, (char *) pHostColl) == -1) { 
fprintf ( stderr, "collJoinReq( )->Couldn 't Register Client Handler !! \n" ) ; 
pHostColl->f Status = shaError; 
return -1; 

} 

mplexSetHostData(pHostColl->fdSocket, pHostColl) ; 
if((pHost = mplexGetHostData(pHostColl->fdSocket) ) != pHostColl){ 
f print f ( stderr, "collJoinReq ( ) ->mplexSet Host Data problem ! \n" ) ; 
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} 

pFrontSId->lPerms = *pPermTag; 
checkConn( ) ; 

sendReqString(REQ_COLL_JOIN, NULL) ; 
ShastraIdOut(pHostColl->fdSocket, pFrontSId) ; 
cmFlush(pHostColl->fdSocket) ; 

coUabSetCurrHostOprn(pHostColl, False) ; 

/* if no current, created becomes current */ 

return 0; 



/* 

* Function 
*/ 
int 

collJoinRespHandler(f d) 
int fd; 

{ 

hostData *pHostColl; 

shastrald *pSId; 

int iLocCollabSelect ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "coUJoinRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

pSId = getSIdByTagInSIds(&pHostColl->lSIDTag, &shast raSesmlds ) ; 
if (pSId == NULL) { 

fprintf (stderr, M collJoinRespHandler( )->Missing SesMgr! Aborting\n" ) ; 

return -1; 

} 

if ((iLocCollabSelect = locateClientHosts ( pSId ) ) == -1) { 
iLocCollabSelect = occupyClHostFreeSlot ( pSId ) ; 

} 

updateAddClHost(pSId, pHostColl) ; 

collabSetCurrHostOprn(pHostColl, False) ; 

/* if no current, created becomes current */ 

setCollabNamesOprn(pSId->lSIDTag) ; 

if (collabJoinFunc != NULL) { 
(*collabJoinFunc) (pHostColl); 

} 

else{ 

fprintf(stderr,"collabJoinFunc( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_C0LL_J0IN) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 
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/* 

* Function 

*/ 

collAskJnRespHandler(fd) 
int fd; 

{ 

shastraldTag sesmSIdTag ; 
shast raldTag frontSIdTag; 
hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collAskJnRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &sesmSIdTag ) ; 
ShastraIdTagIn(fd, &f rontSIdTag ) ; 

/* now prompt for participation, and tell join if reqd */ 

/* 

collAskJoinPromptOprn(sesmSIdTag, frontSIdTag) ; 
*/ 

collabAskJoinPromptOprn(sesmSIdTag, frontSIdTag) ; 

sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", REQ_COLL_ASKJOIN) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 

*/ 

int collAskJnMsgRespHandler(fd) 
int fd; 

{ 

shastraldTag smSIdTag; 
shastraldTag sldTag; 
char *sMsg; 
hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collAskJnMsgRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 

collabRecvdAskJoinMessageOprn(smSIdTag, sldTag, sMsg); 
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sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", REQ_COLL_ASKJOINMSG 
); 

showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
f ree(sMsg) ; 
return 0; 



/* 

* Function 
*/ 
int 

collLeaveReq(pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqString(REQ_COLL_LEAVE, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
collLeaveRespHandler(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collLeaveRespHandler( f d) 
int fd; 

{ 

hostData *pHostColl; 
shastrald *pSIdHost; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collLeaveRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

pSIdHost = getSIdByTagInSIds(&pHostColl->lSIDTag, &shast raSesmlds ) ; 
if (pSIdHost == NULL) { 

fprintf (stderr, M collLeaveRespHandler( )->Missing SesMgr! Aborting\n" ) ; 

return -1; 

} 

updateRmvClHostByIdTag(pSIdHost, &pHostColl->lSIDTag ) ; 

setCollabNamesOprn(pHostColl->lSIDTag) ; 

/* close connection */ 
mplexUnRegisterChannel(fd) ; 
if (collabLeaveFunc != NULL) { 
(*collabLeaveFunc) (pHostColl); 

} 

else{ 

fprintf (stderr, "collabLeaveFunc ( )->no handler ! \n" ) ; 
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} 

coUabResetCurrHostOprn(pHostColl, False) ; 

#ifdef CLEANLYREMOVE 

listDestroy(pHostColl->sendList, 1) ; 
listDestroy(pHostColl->recvList, 1) ; 
memset ( pHostColl, 0, sizeof (hostData) ) ; 
/*is freed in shaClientHandler ! ugh!!*/ 
#endif /* CLEANLYREMOVE */ 

if (pHostCoU->pSId != NULL){ 

shastraIdXDRFree(pHostColl->pSId) ; 

} 

f ree(pHostCoU) ; 

sprintf (pFront_AppData->sbMsgBuf , "Done — %s\n", REQ_COLL_LEAVE) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collRemoveReq(pHostColl, pSIdTag) 
hostData *pHostColl; 
shastraldTag *pSIdTag; 

{ 

checkConn( ) ; 

sendReqString(REQ_COLL_REMOVE, NULL) ; 
ShastraIdTagOut(pHostColl->fdSocket, pSIdTag) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collRemoveRespHandler (f d) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (collabRemoveFunc != NULL) { 
(*collabRemoveFunc) (pHostColl); 

} 

else{ 

f print f ( stder r, "collabRemoveFunc ( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_C0LL_REM0VE) ; 
showCollablnf o(pFrontAppData->sbMsgBuf) ; 
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return 0; 

} 

/* 

* Function 
*/ 

int 

collSetPermsReq(pHostColl, pSIdTag, perms) 
hostData *pHostColl; 
shastraldTag *pSIdTag; 
unsigned long perms; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_SET_COLLPERMS, NULL) ; 
ShastraIdTagOut(pHostColl->fdSocket, pSIdTag) ; 
ShastraULongOut(pHostColl->fdSocket, &perms) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collSetPermsRespHandler(f d) 
int fd; 



{ 



shastraldTag smSIdTag; 

shastraldTag sldTag; 

shastraldTag permTag; 

shastraldTags *pPermTags, *pFrIdTags; 

hostData *pHostColl; 

char *tmp; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSetPermsRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

smSIdTag = pHostColl->lSIDTag ; 
ShastraIdTagIn(fd, &sIdTag); 
ShastraIdTagIn(fd, &permTag); 
pFrldTags = getSesmFrontSIdTags (&smSIdTag ) ; 
pPermTags = getSesmFrontPermTags (&smSIdTag ) ; 

if (setSesmFrontPerms(&smSIdTag, &sIdTag, permTag) < 0) { 

fprintf ( stderr, "collSetPermsRespHandler( )->can 1 t set perms for %lx!\n" 

sldTag) ; 

} 

if(sIdTag == pFrontSId->lSIDTag ) { 
setCollabFrontPermsOprn ( smSIdTag) ; 
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} 

if (collabSetPermsFunc != NULL) { 

(*collabSetPermsFunc) (pHostColl, &sIdTag, permTag); 

} 

else{ 

fprintf (stderr, "collabSet Perms Func( )->no handler ! \n" ) ; 

} 

tmp = perms2Str( permTag) ; 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s(%s)\n", tmp, 

REQ_SET_COLLPERMS) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
f ree(tmp) ; 
return 0; 



/* 

* Function 
*/ 
int 

collGetPermsReq(pHostColl, pSIdTag) 
hostData *pHostColl; 
shastraldTag *pSIdTag; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_GET_COLLPERMS, NULL) ; 
ShastraIdTagOut(pHostColl->fdSocket, pSIdTag) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collGetPermsRespHandler(f d) 
int fd; 

{ 

shastraldTag smSIdTag; 
shastraldTag sldTag; 
shastraldTag permTag; 
shastraldTags *pPermTags, *pFrIdTags; 
hostData *pHostColl; 
char *tmp; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collGetPermsRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

smSIdTag = pHostColl->lSIDTag ; 
ShastraIdTagIn(fd, &sIdTag); 
ShastraIdTagIn(fd, &permTag); 
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pFrldTags = getSesmFrontSIdTags (&smSIdTag ) ; 

pPermTags = getSesmFrontPermTags (&smSIdTag ) ; 

if (setSesmFrontPerms(&smSIdTag, &sIdTag, permTag) < 0) { 

fprintf (stderr, "collGetPermsRespHandler( )->can 1 t set perms for%lx!\n" 

sldTag) ; 

} 

if(sIdTag == pFrontSId->lSIDTag ) { 
setCollabFrontPermsOprn ( smSIdTag) ; 

} 

if (collabGetPermsFunc != NULL) { 

(*collabGetPermsFunc) (pHostColl, &sIdTag, permTag); 

} 

else{ 

fprintf(stderr,"collabGetPermsFunc( )->no handler!\n") ; 

} 

tmp = perms2Str(permTag) ; 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s(%s)\n", tmp, 

REQ_GET_COLLPERMS) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
f ree(tmp) ; 
return 0; 



/* 

* Function 
*/ 
int 

collGetSesmPermsReq(pHostColl) 
hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_GET_COLLPERMS, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collGetSesmPermsRespHandler(fd) 
int fd; 

{ 

shastraldTag smSIdTag; 
static shastraldTags permTags; 
shastraldTags *pPermTags; 
int smlndex; 
hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collGetSesmPermsRespHandler( )->NULL Host data!\n"); 



Page 1 6 of 1 03 



frontCollClient.c 



7/5/11 11:54 AM 



return -1; 

} 

ShastraIdTagIn(fd, &smSIdTag ) ; 
ShastraIdTagsIn(fd, &permTags); 
smlndex = locateSesmFronts (&smSIdTag ) ; 
if (smlndex == -1) { 

fprintf (stderr, "collGetSesmPermsRespHandler( )->can 1 t locate sesMgr!\n" 
); 

} else { 

pPermTags = getSesmFrontPermTags (&smSIdTag ) ; 

if (pPermTags->shastraIdTags_len == permTags. shastraIdTags_len) { 
shastraldTag *pSIdTag; 

/* just switch, should be ok */ 
pSIdTag = pPermTags->shastraIdTags_val; 

pPermTags->shastraIdTags_val = permTags . shast raIdTags_val; 
permTags. shast raIdTags_val = pSIdTag; 

} 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_GET_SESMCOLLPERMS) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 

return 0; 



/* 

* Function 
*/ 
int 

collSetSesmPermsReq(pHostColl, pPermTags) 
hostData *pHostColl; 
shastraldTags *pPermTags; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_SET_SESMCOLLPERMS, NULL) ; 
ShastraIdTagsOut(pHostColl->fdSocket, pPermTags) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSetSesmPermsRespHandler (f d) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_SET_SESMCOLLPERMS) ; 
showCollablnf o( pFrontAppData->sbMsgBuf) ; 
return 0; 
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/* 

* Function 
*/ 
int 

collGetlxnModeReq(pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_GET_IXNMODE, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collGetIxnModeRespHandler(f d) 
int fd; 

{ 

unsigned long ixnMode; 
hostData *pHostColl; 
sesmFronts *pSesmFrCD; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collGetIxnModeRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraULongIn(fd, &ixnMode); 

pSesmFrCD = getSesMg rCntlData (&pHostColl->lSIDTag ) ; 

pSesmFrCD->lIxnMode = ixnMode; 

if (collabGetlxnModeFunc != NULL) { 

(*collabGetIxnModeFunc) (pHostColl, ixnMode); 

} 

else{ 

fprintf ( stderr, "collabGetlxnModeFunc ( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_GET_IXNMODE) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSetlxnModeReq ( pHostColl, ixnMode) 
hostData *pHostColl; 
unsigned long ixnMode; 

{ 
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checkConn( ) ; 

sendReqString(REQ_SET_IXNMODE, NULL) ; 
ShastraULongOut(pHostColl->fdSocket, &ixnMode) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSetlxnModeRespHandler ( f d ) 
int fd; 

{ 

unsigned long ixnMode; 
hostData *pHostColl; 
sesmFronts *pSesmFrCD; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSetIxnModeRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraULongIn(fd, &ixnMode); 

pSesmFrCD = getSesMg rCntlData (&pHostColl->lSIDTag ) ; 
pSesmFrCD->lIxnMode = ixnMode; 

if (collabSetlxnModeFunc != NULL) { 

(*collabSetIxnModeFunc) (pHostColl, ixnMode); 

} 

else{ 

fprintf (stderr, "collabSetlxnModeFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SET_IXNMODE) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collGetFloorModeReq( pHostColl) 
hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_GET_FL00RM0DE, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 
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/* 

* Function 
*/ 
int 

collGetFloorModeRespHandler(fd) 
int fd; 

{ 

unsigned long floorMode; 
hostData *pHostColl; 
sesmFronts *pSesmFrCD; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collGetFloorModeRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraULongIn(fd, &floorMode); 

pSesmFrCD = getSesMg rCntlData (&pHostColl->lSIDTag ) ; 
pSesmFrCD->lFloorMode = floorMode; 

if (collabGetFloorModeFunc != NULL) { 

(*collabGetFloorModeFunc) (pHostColl, floorMode); 

} 

else{ 

fprintf (stderr, M collabGetFloorModeFunc( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_GET_FL00RM0DE) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSetFloorModeReq( pHostColl, ixnMode) 
hostData *pHostColl; 
unsigned long ixnMode; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_SET_FL00RM0DE, NULL) ; 
ShastraULongOut(pHostColl->fdSocket, &ixnMode) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSetFloorModeRespHandler(fd) 
int fd; 
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unsigned long floorMode; 
hostData *pHostColl; 
sesmFronts *pSesmFrCD; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSet_FloorModeRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraULongIn(fd, &floorMode); 

pSesmFrCD = getSesMg rCntlData (&pHostColl->lSIDTag ) ; 
pSesmFrCD->lFloorMode = floorMode; 

if (collabSetFloorModeFunc != NULL) { 

(*collabSetFloorModeFunc) (pHostColl, floorMode); 

} 

else{ 

fprintf (stderr, M collabSetFloorModeFunc( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SET_FL00RM0DE) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collGetSesFormatReq( pHostColl) 
hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_GET_SES FORMAT, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collGet Ses Format Res pHandler (f d) 
int fd; 

{ 

unsigned long sesFormat; 
hostData *pHostColl; 
sesmFronts *pSesmFrCD; 
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pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collGetSesFormat_RespHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraULongIn(fd, &sesFormat); 

pSesmFrCD = getSesMg rCntlData (&pHostColl->lSIDTag ) ; 
pSesmFrCD->lFormat = sesFormat; 

if (collabGetFormatFunc != NULL) { 

(*collabGetFormatFunc) (pHostColl, sesFormat); 

} 

else{ 

fprintf (stderr, "collabGetFormatFunc ( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_GET_SESFORMAT) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSetSesFormatReq( pHostColl, sesFormat) 
hostData *pHostColl; 
unsigned long sesFormat; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_SET_SES FORMAT, NULL) ; 
ShastraULongOut(pHostColl->fdSocket, &sesFormat) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSetSesFormatRespHandler(fd) 
int fd; 

{ 

unsigned long sesFormat; 
hostData *pHostColl; 
sesmFronts *pSesmFrCD; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collSetSesFormatRespHandler( )->NULL Host data!\n"); 

return -1; 

} 
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ShastraUI_ongIn(fd, &sesFormat); 

pSesmFrCD = getSesMg rCntlData (&pHostColl->lSIDTag ) ; 
pSesmFrCD->lFormat = sesFormat; 

if (collabSetFormatFunc != NULL) { 

(*collabSetFormatFunc) (pHostColl, sesFormat); 

} 

else{ 

f print f ( stder r, "collabSetFormatFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SET_SESFORMAT) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collGrabTokenReq(pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqSt ring (REQ_GRAB_TOKEN, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collGrabTokenRespHandler(f d ) 
int fd; 

{ 

hostData *pHostColl; 
shastraldTag sldTagToken; 
sesmFronts *pSesmFrCD; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collGrabTokenRespHandler ( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &sIdTagToken ) ; 

pSesmFrCD = getSesMg rCntlData (&pHostColl->lSIDTag ) ; 
pSesmFrCD->sIdTagToken = sldTagToken; 

setCollabFrontFloorOprn(pHostColl->lSIDTag, sldTagToken) ; 
if (collabGrabTokenFunc != NULL) { 

(*collabGrabTokenFunc) (pHostColl, &sIdTagToken ) ; 
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} 

else{ 

fprintf(stderr, "collabGrabTokenFunc ( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_GRAB_TOKEN) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

coll FreeTokenReq(pHost Coll) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqSt ring (REQ_FREE_TOKEN, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collFreeTokenRespHandler(f d ) 
int fd; 

{ 

shastraldTag sldTagToken = 0; 
hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collFreeTokenRespHandler ( )->NULL Host data!\n"); 

return -1; 

} 

if (collabFreeTokenFunc != NULL) { 

(*collabFreeTokenFunc) (pHostColl, &sIdTagToken ) ; 

} 

else{ 

f print f ( stderr, "collabFreeTokenFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_FREE_TOKEN) ; 
showCollablnf o( pFrontAppData->sbMsgBuf) ; 
return 0; 



/* 

* Function 

*/ 
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int 

coUTeUTokenReq(pHostCoU, pSIdTag) 
hostData *pHostColl; 
shastraldTag *pSIdTag; 

{ 

checkConn( ) ; 

sendReqSt ring (REQ_TELL_TOKEN, NULL) ; 
ShastraIdTagOut(pHostColl->fdSocket, pSIdTag) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collTellTokenRespHandler(fd) 
int fd; 

{ 

shastraldTag sldTagToken = 0; 
hostData *pHostColl; 
sesmFronts *pSesmFrCD; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collTellTokenRespHandler ( )->NULL Host data!\n"); 

return -1; 

} 

if (collabTellTokenFunc != NULL) { 

(*collabTellTokenFunc) (pHostColl, &sIdTagToken ) ; 

} 

else{ 

fprintf (stderr, "collabTellTokenFunc ( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_TELL_TOKEN) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collAskTokenReq( pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqString(REQ_ASK_TOKEN, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 
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/* 

* Function 
*/ 
int 

collAskTokenRespHandler(f d) 
int fd; 

{ 

shastraldTag sldTagToken; 
hostData *pHostColl; 
sesmFronts *pSesmFrCD; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collAskTokenRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &sIdTagToken ) ; 

pSesmFrCD = getSesMg rCntlData (&pHostColl->lSIDTag ) ; 
pSesmFrCD->sIdTagToken = sldTagToken; 

setCollabFrontFloorOprn(pHostColl->lSIDTag, sldTagToken) ; 
if (collabAskTokenFunc != NULL) { 

(*collabAskTokenFunc) (pHostColl, &sIdTagToken) ; 

} 

else{ 

fprintf ( stderr, "collabAskTokenFunc ( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_ASK_TOKEN) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collStartTextReq( pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_START_TEXT, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collStartTextRespHandler(fd) 
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int fd; 

{ 

/* start a text comm infrastructure., one text wid per member */ 
/* create and popup text comm controller */ 
shastraldTag senderSIdTag ; 
hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
ShastraIdTagIn(fd, &senderSIdTag) ; 
if (textStartFunc != NULL) { 

(*textStartFunc) (pHostColl, &senderSIdTag) ; 

} 

else{ 

fprintf(stderr, "text St a rtFunc ( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_START_TEXT) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collEndTextReq( pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqString(REQ_END_TEXT, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collEndTextRespHandler(fd) 
int fd; 

{ 

shastraldTag senderSIdTag; 
hostData *pHostColl; 

/* terminate a text comm channel destroy wids etc */ 
/* destroy popdown text comm controller */ 
pHostColl = mplexGetHostData(fd) ; 
ShastraIdTagIn(fd, &senderSIdTag) ; 
if (textEndFunc != NULL) { 

(*textEndFunc) (pHostColl, &senderSIdTag ) ; 

} 

else{ 

fprintf(stderr, "textEndFunc ( ) ->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_END_TEXT) ; 
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showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 
int 

collSendTextReq (pHostColl, nameBuf ) 
hostData *pHostColl; 
char *nameBuf; 

{ 

checkConn( ) ; 

sendReqString(REQ_SEND_TEXT, NULL) ; 
sendDataSt ring ( nameBuf ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendTextRespHandler(f d) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collSendTextRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

if (textSendFileFunc != NULL) { 
(*textSendFileFunc) (pHostColl); 

} 

else{ 

fprintf ( stderr, "textSendFileFunc ( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_TEXT) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendTextlnHandler(fd) 
int fd; 

{ 

/* recv msg from outside., update local view */ 
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hostData *pHostColl; 
char *buf; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collSendTextInHandler( )->NULL Host data!\n"); 

return -1; 

} 



ShastraIdTagIn(fd, &senderSIdTag) ; 
buf = cmReceiveSt ring ( f d ) ; 

sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", REQ_SEND_TEXT) ; 
if (textRecvFileFunc != NULL) { 

(*textRecvFileFunc) (pHostColl, &senderSIdTag, buf); 

} 

else{ 

fprintf (stderr, "textRecvFileFunc ( )->no handler ! \n" ) ; 

} 

showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
f ree(buf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgTextReq( pHostColl, str) 
hostData *pHostColl; 
char *str; 

{ 

shmlnfo *pShmInfo; 
int n ; 



#ifdef USESHAREDMEMFORTEXT 

if (pFrontSId->HPAddr == pHostColl->pSId->HPAdd r) { 
pShmlnfo = mplexOutShmInfo(pHostColl->fdSocket) ; 
n = strlen(str) + 1; 

if (shMemReuseSegment(pShmInfo, ((n > 10240) ? n : 10240)) == 0) { 
fprintf (stderr, "collSendMsgTextReq ( )->couldn 't shMemReuseSegment !\n" 
); 

} 

memcpy(pShmInfo->shmAddr, str, n); 
collSendMsgShmTextReq ( pHostColl, pShmlnfo) ; 
return -1; 

} 

#endif /* USESHAREDMEMFORTEXT */ 



checkConn( ) ; 

sendReqSt ring ( REQ_SEND_MSGTEXT, NULL) ; 
sendDataString(str) ; 
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cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 
int 

collSendMsgTextRespHandler( f d) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgTextRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

if (textSendMsgFunc != NULL) { 
(*textSendMsgFunc) (pHostColl); 

} 

else{ 

fprintf ( stderr, "textSendMsgFunc ( )->no handler!\n"); 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_MSGTEXT) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgTextlnHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 
char *buf; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgTextlnHandler ( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

buf = cmReceiveSt ring ( f d ) ; 

if (textRecvMsgFunc != NULL) { 

(*textRecvMsgFunc) (pHostColl, &senderSIdTag, buf); 
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} 

else{ 

f print f ( stder r, "textRecvMs g Fun c ( )->no handler!\n"); 

} 

f ree(buf ) ; 

sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", REQ_SEND_MSGTEXT) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collRecvdMsgTextReq (pHostColl, nameBuf) 
hostData *pHostColl; 
char *nameBuf; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_RECVD_MSGTEXT, NULL) ; 
sendDataString(nameBuf ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 

int 

collRecvdMsgTextRespHandler(fd) 
int fd; 

{ 

/* NULL — recvd msg got to sesmgr */ 

sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_RECVD_MSGTEXT) ; 
showCollablnf o( pFrontAppData->sbMsgBuf) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgTextInHandler(f d) 
int fd; 

{ 

hostData *pHostColl; 
char *nameBuf; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collRecvdMsgTextInHandler( )->NULL Host data!\n"); 

return -1; 
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} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

/* recvd ack that all collabs have heard, delete local buf */ 
nameBuf = cmReceiveSt ring ( f d ) ; 

sprintf (pFrontAppData->sbMsgBuf , "Done (in)— %s\n", REQ_RECVD_MSGTEXT) ; 

showCollablnf o(pFrontAppData->sbMsgBuf ) ; 

printf ("deleting %s\n", nameBuf); 

/* is a tmp file */ 

free (nameBuf ) ; 

return 0; 



/* 

* Function 
*/ 

int 

collSendMsgShmTextReq (pHostColl, pShmlnf o) 
hostData *pHostColl; 
shmlnfo *pShmInfo; 

{ 

if (pFrontSId->HPAddr != pHostColl->pSId->HPAdd r) { 

f printf ( stderr, M collSendMsgShmTextReq( )->no non-local SHM\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_SEND_MSGSHMTEXT, NULL) ; 
ShastraIntOut(pHostColl->fdSocket, &pShmInf o->shmId ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collSendMsgShmTextRespHandler ( f d ) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collSendMsgShmTextRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

if (textSendMsgFunc != NULL) { 
(*textSendMsgFunc) (pHostColl); 

} 

else{ 

fprintf (stderr, " textSendMsgFunc ( )->no handler ! \n" ) ; 

} 
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sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_MSGSHMTEXT) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgShmTextlnHandler ( f d ) 
int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 
char *buf; 
shastraldTag senderSIdTag ; 
int shmld; 
shmlnfo *pShmInfo; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgShmTextInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 
Shastralntln(fd, &shmld); 

if (pFrontSId->HPAddr != pHostColl->pSId->HPAdd r) { 

fprintf (stderr, "collSendMsgShmTextInHandler( )->no non-local SHM\n" ) ; 
return -1; 

} 

pShmlnfo = mplexInShmlnf o ( f d ) ; 

if ( ! shMemReconnect ( pShmlnf o, shmld)) { 

fprintf ( stderr, "collSendMsgShmTextInHandler( )->SHM recon problem\n"); 

return -1; 

} 

buf = pShmlnf o->shmAdd r; 

if (textRecvMsgFunc != NULL) { 

(*textRecvMsgFunc) (pHostColl, &senderSIdTag, buf); 

} 

else{ 

fprintf (stderr, " textRecvMsgFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", REQ_SEND_MSGSHMTEXT 
); 

showCollablnf o( pFrontAppDat a->sbMsg Buf ) ; 
return 0; 



/* 

* Function 

*/ 
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int 

collRecvdMsgShmTextReq ( pHostColl, pShmlnf o) 
hostData *pHostColl; 
shmlnfo *pShmInf o; 

{ 

if (pFrontSId->HPAddr != pHostColl->pSId->lIPAdd r) { 

fprintf (stderr, " collRecvdMsgShmTextReq ( )->no non-local SHM\n" ) ; 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_RECVD_MSGSHMTEXT, NULL) ; 
ShastralntOut (pHostColl->fdSocket, &pShmInf o->shmId ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 

int 

collRecvdMsgShmTextRespHandler(fd) 
int fd; 

{ 

/* NULL — recvd msg got to sesmgr */ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_RECVD_MSGSHMTEXT) 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgShmTextlnHandler ( f d ) 
int fd; 

{ 



hostData *pHostColl; 

shastraldTag senderSIdTag ; 

int shmld; 

shmlnfo *pShmInfo; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collRecvdMsgShmTextInHandler( )->NULL Host data!\n"); 

return -1; 

} 



ShastraIdTagIn(fd, &senderSIdTag) ; 

Shastralntln(fd, &shmld); 

pShmlnfo = mplexOutShmlnf o(fd) ; 

if (shMemDelete(pShmInfo, shmld) == 0) { 

f print f ( stderr, M collRecvdMsgShmTextInHandler( )->couldn 1 t shMemDelete ! \ 
n"); 
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} 

/* recvd ack that all collabs have heard, delete shared seg */ 
sprintf (pFrontAppData->sbMsgBuf , "Done (in)— %s\n", REQ_RECVD_MSGSHMTEXT 
); 

showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collStartAudioReq(pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqString(REQ_START_AUDIO, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collStartAudioRespHandler(fd) 
int fd; 

{ 

/* start a audio comm infrastructure.. */ 
shastraldTag senderSIdTag ; 
hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collStartAudioRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 
if (audioStartFunc != NULL) { 

(*audioStartFunc) (pHostColl, &senderSIdTag ) ; 

} 

else{ 

fprintf (stderr, " audioStartFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_START_AUDIO) ; 
showCollablnf o( pFrontAppData->sbMsgBuf) ; 
return 0; 



/* 

* Function 

*/ 
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int 

coUEndAudioReq(pHostCoU) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqString(REQ_END_AUDIO, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collEndAudioRespHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 
shastraldTag senderSIdTag ; 
/* terminate a audio comm channel */ 
pHostColl = mplexGetHostData(fd) ; 
ShastraIdTagIn(fd, &senderSIdTag) ; 
if (audioEndFunc != NULL) { 

(*audioEndFunc) (pHostColl, &senderSIdTag ) ; 

} 

else{ 

fprintf(stderr,"audioEndFunc( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_END_AUDIO) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collSendAudioReq( pHostColl, nameBuf ) 
hostData *pHostColl; 
char *nameBuf; 

{ 

checkConn( ) ; 

sendReqString(REQ_SEND_AUDIO, NULL) ; 
sendDataString(nameBuf ) ; 

cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 
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collSendAudioRespHandler(f d ) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendAudioRespHandler ( )->NULL Host data!\n"); 

return -1; 

} 

if (audioSendFileFunc != NULL) { 
(*audioSendFileFunc) (pHostColl) ; 

} 

else{ 

fprintf (stderr, "audioSendFileFunc ( )->no handler ! \n" ) ; 

} 

return 0; 
/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_AUDIO) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 



/* 

* Function 
*/ 
int 

collSendAudioInHandler(f d) 
int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 
char *buf; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collSendAudioInHandler( )->NULL Host data!\n"); 

return -1; 

} 

/*ShastraIdTagIn(fd, &senderSIdTag ) ;*/ 

buf = cmReceiveString(fd) ; 

if (audioRecvFileFunc != NULL) { 

(*audioRecvFileFunc) (pHostColl, &senderSIdTag, buf); 

} 

else{ 

fprintf (stderr, "audioRecvFileFunc ( ) ->no handler!\n") ; 

} 

showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
f ree(buf ) ; 
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sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", REQ_SEND_AUDIO) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 
int 

collSendMsgAudioReq(pHostColl, pABite) 
hostData *pHostColl; 
audioBite *pABite; 

{ 

shmlnfo *pShmInfo; 
int n ; 

#ifdef USESHAREDMEMFORAUDIO 

if (pFrontSId->lIPAddr == pHostCoU->pSId->lIPAdd r) { 
pShmlnfo = mplexOutShmInfo(pHostColl->fdSocket) ; 
n = pABite->data. data_len + sizeof ( audioBite) ; 

if (shMemReuseSegment(pShmInfo, ((n > 10240) ? n : 10240)) == 0) { 
fprintf(stderr, "collSendMsgAudioReq ( )->couldn 't shMemReuseSegment !\ 
n"); 

} 

/* xdr dump */ 

audioBiteMemOut ( pShmlnf o->shmAdd r, pShmlnf o->shmSize, pABite); 
collSendMsgShmAudioReq(pHostColl, pShmlnfo) ; 
return -1; 

} 

#endif /* USESHAREDMEMFORAUDIO */ 

checkConn( ) ; 

sendReqSt ring ( REQ_SEND_MSGAUDIO, NULL) ; 
AudioBiteOut(pHostColl->fdSocket, pABite) ; 
/* 

* nameBuf = (char*)pABite; sendDataSt ring ( nameBuf ) ; 
*/ 

cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 



/* 

* Function 
*/ 
int 

collSendMsgAudioRespHandler (f d) 
int fd; 

{ 

hostData *pHostColl; 



pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgAudioRespHandler( )->NULL Host data!\n"); 

return -1; 
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} 

if (audioSendMsgFunc != NULL) { 
(*audioSendMsgFunc) (pHostColl); 

} 

else{ 

fprintf (stderr, "audioSendMsgFunc ( )->no handler ! \n" ) ; 

} 

return 0; 
/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_MSGAUDIO) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 



/* 

* Function 
*/ 
int 

collSendMsgAudioInHandler(f d) 
int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 
char *buf; 
shastraldTag senderSIdTag ; 
static audioBite aBite; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collSendMsgAudioInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

memset (&aBite, 0, sizeof ( audioBite) ) ; 

AudioBiteIn(f d, &aBite); 

if (audioRecvMsgFunc != NULL) { 

(*audioRecvMsgFunc) (pHostColl, &senderSIdTag, &aBite); 

} 

else{ 

fprintf (stderr, "audioRecvMsgFunc ( )->no handler ! \n" ) ; 

} 

return 0; 
/* 

* sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", 

REQ_SEND_MSGAUDIO) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 
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* Function 
*/ 
int 

collRecvdMsgAudioReq( pHostColl, nameBuf ) 
hostData *pHostColl; 
char *nameBuf; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_RECVD_MSGAUDIO, NULL) ; 
sendDataSt ring ( nameBuf ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 

int 

collRecvdMsgAudioRespHandler(f d) 
int fd; 

{ 

/* NULL — recvd msg got to sesmgr */ 

return 0; 

/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_RECVD_MSGAUDIO) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgAudioInHandler( f d) 
int fd; 

{ 



hostData *pHostColl; 
char *nameBuf; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collRecvdMsgAudioInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

/* recvd ack that all collabs have heard, delete local buf */ 
nameBuf = cmReceiveSt ring ( f d ) ; 

sprintf (pFrontAppData->sbMsgBuf, "Done (in)— %s\n", REQ_RECVD_MSGAUDIO) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
printf ( "deleting %s\n", nameBuf); 
/* is a tmp file */ 
f ree(nameBuf ) ; 
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return 0; 

} 

/* 

* Function 
*/ 

int 

collSendMsgShmAudioReq(pHostColl, pShmlnf o) 
hostData *pHostColl; 
shmlnfo *pShmInf o; 

{ 

if (pFrontSId->lIPAddr != pHostColl->pSId->lIPAdd r) { 

f printf ( stderr, "collSendMsgShmAudioReq( )->no non-local SHM\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_SEND_MSGSHMAUDIO, NULL) ; 
ShastraIntOut(pHostColl->fdSocket, &pShmInf o->shmId ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collSendMsgShmAudioRespHandler ( f d ) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgShmAudioRespHandler ( )->NULL Host data!\n"); 

return -1; 

} 

if (audioSendMsgFunc != NULL) { 
(*audioSendMsgFunc) (pHostColl); 

} 

else{ 

fprintf (stderr, "audioSendMsgFunc ( )->no handler ! \n" ) ; 

} 

return 0; 
/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_MSGSHM AUDIO) 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 

} 

/* 

* Function 
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*/ 

int 

collSendMsgShmAudioInHandler ( f d ) 
int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 
shastraldTag senderSIdTag ; 
int shmld; 
shmlnfo *pShmInf o; 

static audioBite aBite; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgShmAudioInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 
Shastralntln(fd, &shmld); 

if (pFrontSId->HPAddr != pHostColl->pSId->HPAdd r) { 

fprintf ( stderr, "collSendMsgShmAudioInHandler( )->no non-local SHM\n"); 
return -1; 

} 

pShmlnfo = mplexInShmlnf o ( f d ) ; 

if ( ! shMemReconnect ( pShmlnf o, shmld)) { 

fprintf (stderr, "collSendMsgShmAudioInHandler( )->SHM recon problem\n" ) ; 

return -1; 

} 

audioBiteMemIn(pShmInfo->shmAddr, pShmlnf o->shmSize, &aBite); 
if (audioRecvMsgFunc != NULL) { 

(*audioRecvMsgFunc) (pHostColl, &senderSIdTag, &aBite); 

} 

else{ 

fprintf ( stderr, "audioRecvMsgFunc ( )->no handler!\n") ; 

} 

/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", 

REQ_SEND_MSGSHMAUDIO) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 

return 0; 



/* 

* Function 
*/ 
int 

collRecvdMsgShmAudioReq ( pHostColl, pShmlnf o) 
hostData *pHostColl; 
shmlnfo *pShmInfo; 

{ 
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if (pFrontSId->lIPAddr != pHostColl->pSId->lIPAdd r) { 

f printf ( stderr, "collRecvdMsgShmAudioReq( )->no non-local SHM\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_RECVD_MSGSHMAUDIO, NULL) ; 
ShastraIntOut(pHostColl->fdSocket, &pShmInf o->shmId ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgShmAudioRespHandler(f d) 
int fd; 

{ 

/* NULL — recvd msg got to sesmgr */ 

return 0; 

/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_RECVD_MSGSHMAUDIO 

); 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgShmAudioInHandler(fd) 
int fd; 



{ 



hostData *pHostColl; 

shastraldTag senderSIdTag ; 

shmlnfo *pShmInfo; 

int shmld; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collRecvdMsgShmAudioInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

Shastralntln(fd, &shmld); 

pShmlnfo = mplexOutShmlnf o(fd) ; 

if (shMemDelete(pShmInfo, shmld) == 0) { 

fprintf (stderr, "collRecvdMsgShmAudioInHandler ( )->couldn 1 t shMemDelete ! 
\n"); 

} 

/* recvd ack that all collabs have heard, delete shared seg */ 
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sprintf ( pFrontAppData->sbMsgBuf , "Done (in) — %s\n", 

REQ_RECVD_MSGSHMAUDIO) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collStartVideoReq(pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqString(REQ_START_VIDEO, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 

int 

collStartVideoRespHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 
shastraldTag senderSIdTag ; 

/* start a video comm infrastructure., start video controller etc */ 
/* create and popup video comm controller */ 
pHostColl = mplexGetHostData(fd) ; 
ShastraIdTagIn(fd, &senderSIdTag) ; 
if (videoStartFunc != NULL) { 

(*videoStartFunc) (pHostColl, &senderSIdTag ) ; 

} 

else{ 

fprintf (stderr,"videoStartFunc( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_START_VIDEO) ; 
showCollablnf o(pFrontAppData->sbMsgBuf) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collEndVideoReq( pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqString(REQ_END_VIDEO, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
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return 0; 

} 

/* 

* Function 
*/ 

int 

collEndVideoRespHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 
shastraldTag senderSIdTag ; 

/* terminate a video comm channel destroy controller */ 
/* destroy popdown video comm controller */ 
pHostColl = mplexGetHostData(fd) ; 
ShastraIdTagIn(fd, &senderSIdTag) ; 
if (videoEndFunc != NULL) { 

(*videoEndFunc) (pHostColl, &senderSIdTag ) ; 

} 

else{ 

fprintf (stderr, "videoEndFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_END_VIDEO) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collSendVideoReq( pHostColl, nameBuf ) 
hostData *pHostColl; 
char *nameBuf; 

{ 

checkConn( ) ; 

sendReqString(REQ_SEND_VIDEO, NULL) ; 
sendDataSt ring ( nameBuf ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collSendVideoRespHandler(f d ) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 
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fprintf (stderr, "collSendVideoRespHandler ( )->NULL Host data!\n"); 
return -1; 

} 

if (videoSendFileFunc != NULL) { 
(*videoSendFileFunc) (pHostColl) ; 

} 

else{ 

fprintf (stderr, "videoSendFileFunc ( )->no handler ! \n" ) ; 

} 

return 0; 
/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_VIDEO) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 

} 

/* 

* Function 
*/ 

int 

collSendVideoInHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 
char *nameBuf; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collSendVideoInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

/* recv msg from outside., update local view */ 

nameBuf = cmReceiveSt ring ( f d ) ; 

if (videoRecvFileFunc != NULL) { 

(*videoRecvFileFunc) (pHostColl, &senderSIdTag, nameBuf); 

} 

else{ 

fprintf (stderr, "videoRecvFileFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", REQ_SEND_VIDEO) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 

f ree(nameBuf ) ; 
return 0; 

} 

/* 

* Function 

*/ 
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int 

collSendMsgVideoReq(pHostColl, pVImg) 

hostData *pHostColl; 

videolmg *pVImg; 

{ 

shmlnfo *pShmInf o; 

int n; 

#ifdef USESHAREDMEM 

if (pFrontSId->HPAddr == pHostColl->pSId->lIPAdd r) { 
pShmlnfo = mplexOutShmInfo(pHostColl->fdSocket) ; 
n = pVImg->data . data_len + sizeof (videolmg ) ; 

if (shMemReuseSegment(pShmInfo, ((n > 65536) ? n : 65536)) == 0) { 
fprintf(stderr, "collSendMsgVideoReq ( )->couldn 't shMemReuseSegment !\ 
n"); 

} 

/* xdr dump */ 

videoImgMemOut(pShmInfo->shmAddr, pShmlnf o->shmSize, pVImg); 
collSendMsgShmVideoReq(pHostColl, pShmlnfo) ; 
return 0; 

} 

#endif /* USESHAREDMEM */ 

checkConn( ) ; 

sendReqSt ring ( REQ_SEND_MSGVIDEO, NULL) ; 
VideoImgOut(pHostColl->fdSocket, pVImg) ; 
/* 

* nameBuf = (char*)pVImg; sendDataSt ring ( nameBuf ) ; 

* / 

cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 
int 

collSendMsgVideoRespHandler (f d) 
int fd; 

{ 



hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgVideoRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

if ( videoSendMsgFunc != NULL) { 
(*videoSendMsgFunc) (pHostColl); 

} 

else{ 

fprintf (stderr, "videoSendMsgFunc ( )->no handler ! \n" ) ; 

} 
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return 0; 
/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_MSGVIDEO) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 



/* 

* Function 
*/ 
int 

collSendMsgVideoInHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 
shastraldTag senderSIdTag ; 
char *nameBuf; 
static videolmg vlmg; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgVideoInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

/* recv msg from outside., update local view */ 

VideoImgIn(fd, &vlmg); 

if (videoRecvMsgFunc != NULL) { 

(*videoRecvMsgFunc) (pHostColl, &senderSIdTag, &vlmg); 

} 

else{ 

fprintf (stderr, "videoRecvMsgFunc ( )->no handler ! \n" ) ; 

} 

return 0; 
/* 

* sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", 

REQ_SEND_MSGVIDEO) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 



/* 

* Function 
*/ 
int 

collRecvdMsgVideoReq( pHostColl, nameBuf ) 
hostData *pHostColl; 
char *nameBuf; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_RECVD_MSGVIDEO, NULL) ; 
sendDataString(nameBuf ) ; 



Page 48 of 1 03 



frontCollClient.c 



7/5/11 11:54 AM 



cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgVideoRespHandler(fd) 
int fd; 

{ 

/* NULL — recvd msg got to sesmgr */ 

return 0; 

/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_RECVD_MSGVIDEO) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgVideoInHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 
char *nameBuf; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collRecvdMsgVideoInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

/* recvd ack that all collabs have heard, delete local buf */ 
nameBuf = cmReceiveSt ring ( f d ) ; 

sprintf (pFrontAppData->sbMsgBuf, "Done (in)— %s\n", REQ_RECVD_MSGVIDEO) ; 

showCollablnf o(pFrontAppData->sbMsgBuf ) ; 

printf ("deleting %s\n", nameBuf); 

/* is a tmp file */ 

free (nameBuf ) ; 

return 0; 



/* 

* Function 
*/ 
int 

collSendMsgShmVideoReq( pHostColl, pShmlnf o) 
hostData *pHostColl; 
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shmlnfo *pShmInf o; 

{ 

if (pFrontSId->lIPAddr != pHostColl->pSId->lIPAdd r) { 

fprintf (stderr, "collSendMsgShmVideoReq( )->no non-local SHM\n" ) ; 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_SEND_MSGSHMVIDEO, NULL) ; 
ShastraIntOut(pHostColl->fdSocket, &pShmInf o->shmId ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 

int 

collSendMsgShmVideoRespHandler(f d ) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgShmVideoRespHandler ( )->NULL Host data!\n"); 

return -1; 

} 

if (videoSendMsgFunc != NULL) { 
(*videoSendMsgFunc) (pHostColl); 

} 

else{ 

fprintf (stderr, "videoSendMsgFunc ( )->no handler ! \n" ) ; 

} 

return 0; 
/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_MSGSHMVIDEO) 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 

} 

/* 

* Function 
*/ 

int 

collSendMsgShmVideoInHandler ( f d ) 
int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 
shastraldTag senderSIdTag ; 
int shmld; 
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static videolmg vlmg; 
shmlnfo *pShmInf o; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgShmVideoInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 
Shastralntln(fd, &shmld); 

if (pFrontSId->lIPAddr != pHostColl->pSId->lIPAdd r) { 

fprintf ( stderr, "collSendMsgShmVideoInHandler( )->no non-local SHM\n"); 
return -1; 

} 

pShmlnfo = mplexInShmlnf o ( f d ) ; 

if ( ! shMemReconnect ( pShmlnf o, shmld)) { 

fprintf (stderr, "collSendMsgShmVideoInHandler( )->SHM recon problem\n" ) ; 

return -1; 

} 

videoImgMemln ( pShmlnf o->shmAdd r, pShmlnf o->shmSize, &vlmg); 
if ( videoRecvMsgFunc != NULL) { 

(*videoRecvMsgFunc) (pHostColl, &senderSIdTag, &vlmg); 

} 

else{ 

fprintf ( stderr, "videoRecvMsgFunc ( )->no handler!\n") ; 

} 

/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", 

REQ_SEND_MSGSHMVIDEO) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 

return 0; 



* Function 
*/ 
int 

collRecvdMsgShmVideoReq( pHostColl, pShmlnf o) 
hostData *pHostColl; 
shmlnfo *pShmInfo; 

{ 

if (pFrontSId->HPAddr != pHostColl->pSId->HPAdd r) { 

fprintf ( stderr, M collRecvdMsgShmVideoReq( )->no non-local SHM\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_RECVD_MSGSHMVIDEO, NULL) ; 
ShastralntOut (pHostColl->fdSocket, &pShmInf o->shmId ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 
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/* 

* Function 
*/ 

int 

collRecvdMsgShmVideoRespHandler(f d) 
int fd; 

{ 

/* NULL — recvd msg got to sesmgr */ 

return 0; 

/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_RECVD_MSGSHMVIDEO 

); 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgShmVideoInHandler ( f d ) 
int fd; 

{ 

hostData *pHostColl; 
shastraldTag senderSIdTag ; 
int shmld; 
shmlnfo *pShmInfo; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collRecvdMsgShmVideoInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

Shastralntln(fd, &shmld); 

pShmlnfo = mplexOutShmlnf o(fd) ; 

if (shMemDelete(pShmInfo, shmld) == 0) { 

f print f ( stderr, "collRecvdMsgShmVideoInHandler( )->couldn 1 t shMemDelete ! 
\n"); 

} 

/* recvd ack that all collabs have heard, delete shared seg */ 
sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", 

REQ_RECVD_MSGSHMVIDEO) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 

*/ 
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int 

coUStartPolyReq(pHostCoU) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqString(REQ_START_POLY, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collStartPolyRespHandler(fd) 
int fd; 

{ 

/* start a image comm infrastructure., one image wid per member */ 
/* create and popup image comm controller */ 
shastraldTag senderSIdTag ; 
hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
ShastraIdTagIn(fd, &senderSIdTag) ; 
if (polyStartFunc != NULL) { 

(*polyStartFunc) (pHostColl, &senderSIdTag) ; 

} 

else{ 

f print f ( stderr, "polyStartFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_START_POLY) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collEndPolyReq( pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqString(REQ_END_POLY, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collEndPolyRespHandler(fd) 
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int fd; 

{ 

shastraldTag senderSIdTag ; 
hostData *pHostColl; 

/* terminate a image comm channel destroy wids etc */ 
/* destroy popdown image comm controller */ 
pHostColl = mplexGetHostData(fd) ; 
ShastraIdTagIn(fd, &senderSIdTag) ; 
if (polyEndFunc != NULL) { 

(*polyEndFunc) (pHostColl, &senderSIdTag ) ; 

} 

else{ 

fprintf(stderr, "polyEndFunc ( ) ->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_END_POLY) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 

int 

collSendPolyReq (pHostColl, nameBuf ) 
hostData *pHostColl; 
char *nameBuf; 

{ 

checkConn( ) ; 

sendReqString(REQ_SEND_POLY, NULL) ; 
sendDataString(nameBuf ) ; 

cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collSendPolyRespHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collSendPolyRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

if (polySendFileFunc != NULL) { 
(*polySendFileFunc) (pHostColl); 

} 
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else{ 

f print f ( stder r, "polySendFileFunc ( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_POLY) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendPolylnHandler(fd) 
int fd; 

{ 

/* recv msg from outside., update local view */ 
hostData *pHostColl; 
char *buf; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collSendPolyInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 
buf = cmReceiveString(fd) ; 

sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", REQ_SEND_POLY) ; 
if (polyRecvFileFunc != NULL) { 

(*polyRecvFileFunc) (pHostColl, &senderSIdTag, buf); 

} 

else{ 

fprintf ( stderr, "polyRecvFileFunc ( )->no handler!\n") ; 

} 

showCollablnf o( pFrontAppDat a->sbMsg Buf ) ; 
f ree(buf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgPolyReq( pHostColl, plmage) 
hostData *pHostColl; 
ipimageData *plmage; 

{ 

shmlnfo *pShmInfo; 
int n ; 

#ifdef USESHAREDMEMFORMPOLY 
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if (pFrontSId->lIPAddr == pHostColl->pSId->lIPAdd r) { 
pShmlnfo = mplexOutShmInfo(pHostColl->fdSocket) ; 
n = pImage->mPoly->nPolygons * 100 * sizeof (double) ; 
if (shMemReuseSegment(pShmInfo, ((n > 10240) ? n : 10240)) == 0) { 
fprintf (stderr, "collSendMsgPolyReq ( )->couldn 't shMemReuseSegment !\n" 
); 

} 

/* xdr dump */ 

ipimageDataMemOut ( pShmlnf o->shmAdd r, pShmlnf o->shmSize, plmage) ; 
collSendMsgShmPolyReq ( pHostColl, pShmlnfo) ; 
return 0; 

} 

#endif /* USESHAREDMEMFORMPOLY */ 

checkConn( ) ; 

sendReqSt ring ( REQ_SEND_MSGPOLY, NULL) ; 
ImageDataOut ( pHostColl->f dSocket, plmage) ; 
/* 

* nameBuf = (char*)plmage; sendDataSt ring ( nameBuf ) ; 

* / 

cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgPolyRespHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collSendMsgPolyRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

if (polySendMsgFunc != NULL) { 
(*polySendMsgFunc) (pHostColl); 

} 

else{ 

fprintf (stderr, " polySendMsgFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_MSGPOLY) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 
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collSendMsgPolylnHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 
ipimageData *plmage; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgPolylnHandler ( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

plmage = (ipimageData *) malloc ( sizeof (ipimageData) ) ; 
memset ( plmage, 0, sizeof ( ipimageData) ) ; 
ImageDataIn(f d, plmage); 
if (polyRecvMsgFunc != NULL) { 

(*polyRecvMsgFunc) (pHostColl, &senderSIdTag, plmage); 

} 

else{ 

fprintf ( stderr, "polyRecvMsgFunc ( )->no handler!\n"); 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", REQ_SEND_MSGPOLY) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collRecvdMsgPolyReq( pHostColl, nameBuf ) 
hostData *pHostColl; 
char *nameBuf; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_RECVD_MSGPOLY, NULL) ; 
sendDataString(nameBuf ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collRecvdMsgPolyRespHandler(fd) 
int fd; 

{ 

/* NULL — recvd msg got to sesmgr */ 
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sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_RECVD_MSGPOLY) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 
int 

collRecvdMsgPolyInHandler(f d) 
int fd; 

{ 

hostData *pHostColl; 
char *nameBuf; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collRecvdMsgPolyInHandler( )->NULL Host data!\n"); 

return -1; 

} 



ShastraIdTagIn(fd, &senderSIdTag) ; 

/* recvd ack that all collabs have heard, delete local buf */ 
nameBuf = cmReceiveSt ring ( f d ) ; 

sprintf (pFrontAppData->sbMsgBuf, "Done (in)— %s\n", REQ_RECVD_MSGPOLY) ; 

showCollablnf o( pFrontAppDat a->sbMsg Buf ) ; 

printf ("deleting %s\n", nameBuf); 

/* is a tmp file */ 

free (nameBuf ) ; 

return 0; 



/* 

* Function 
*/ 
int 

collSendMsgShmPolyReq ( pHostColl, pShmlnf o) 
hostData *pHostColl; 
shmlnfo *pShmInfo; 

{ 

if (pFrontSId->HPAddr != pHostColl->pSId->HPAdd r) { 

fprintf (stderr, M collSendMsgShmPolyReq( )->no non-local SHM\n" ) ; 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_SEND_MSGSHMPOLY, NULL) ; 
ShastralntOut (pHostColl->fdSocket, &pShmInf o->shmId ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 



/* 
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* Function 
*/ 
int 

collSendMsgShmPolyRespHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgShmPolyRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

if (polySendMsgFunc != NULL) { 
(*polySendMsgFunc) (pHostColl); 

} 

else{ 

fprintf (stderr, " polySendMsgFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_MSGSHMPOLY) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgShmPolylnHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 
ipimageData *plmage; 
shastraldTag senderSIdTag ; 
int shmld; 
shmlnfo *pShmInfo; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgShmPolyInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 
Shastralntln(fd, &shmld); 

if (pFrontSId->HPAddr != pHostColl->pSId->HPAdd r) { 

fprintf ( stderr, "collSendMsgShmPolyInHandler( )->no non-local SHM\n"); 
return -1; 

} 

pShmlnfo = mplexInShmlnf o ( f d ) ; 
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if ( ! shMemReconnect ( pShmlnf o, shmld)) { 

f printf ( stderr, "collSendMsgShmPolyInHandler( )->SHM recon problem\n" ) ; 
return -1; 

} 

plmage = ( ipimageData *) malloc ( sizeof ( ipimageData) ) ; 
memset ( plmage, 0, sizeof ( ipimageData) ) ; 

ipimageDataMemIn(pShmInfo->shmAddr, pShmlnf o->shmSize, plmage); 
if (polyRecvMsgFunc != NULL) { 

(*polyRecvMsgFunc) (pHostColl, &senderSIdTag, plmage); 

} 

else{ 

f printf ( stderr, "polyRecvMsgFunc ( )->no handler!\n"); 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", REQ_SEND_MSGSHMPOLY 
); 

showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 
int 

collRecvdMsgShmPolyReq ( pHostColl, pShmlnf o) 
hostData *pHostColl; 
shmlnfo *pShmInfo; 

{ 

if (pFrontSId->lIPAddr != pHostColl->pSId->lIPAdd r) { 

fprintf (stderr, M collRecvdMsgShmPolyReq( )->no non-local SHM\n" ) ; 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_RECVD_MSGSHMPOLY, NULL) ; 
ShastraIntOut(pHostColl->fdSocket, &pShmInf o->shmId ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 

int 

collRecvdMsgShmPolyRespHandler(fd) 
int fd; 

{ 

/* NULL — recvd msg got to sesmgr */ 

sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_RECVD_MSGSHMPOLY) ; 
showCollablnf o( pFrontAppData->sbMsgBuf) ; 
return 0; 

} 

/* 

* Function 

*/ 
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int 

collRecvdMsgShmPolylnHandle r ( f d ) 
int fd; 

{ 

hostData *pHostColl; 
shastraldTag senderSIdTag ; 
int shmld; 

shmlnfo *pShmInf o; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collRecvdMsgShmPolyInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

Shastralntln(fd, &shmld); 

pShmlnfo = mplexOutShmlnf o(fd) ; 

if (shMemDelete(pShmInfo, shmld) == 0) { 

f print f ( stderr, "collRecvdMsgShmPolyInHandler( )->couldn 1 t shMemDelete ! \ 
n"); 

} 

/* recvd ack that all collabs have heard, delete shared seg */ 
sprintf (pFrontAppData->sbMsgBuf , "Done (in)— %s\n", REQ_RECVD_MSGSHMPOLY 
); 

showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collStartPntrReq( pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_START_PNTR, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collStartPntrRespHandler(fd) 
int fd; 

{ 

/* start a pntr comm infrastructure., one pntr wid per member */ 
/* create and popup pntr comm controller */ 
shastraldTag senderSIdTag; 
hostData *pHostColl; 
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pHostColl = mplexGetHostData(fd) ; 
ShastraIdTagIn(fd, &senderSIdTag) ; 
if (pntrStartFunc != NULL) { 

(*pnt rStartFunc) (pHostColl, &senderSIdTag) ; 

} 

else{ 

f print f ( stder r, "pntrStartFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_START_PNTR) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collEndPntrReq( pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqString(REQ_END_PNTR, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 

int 

collEndPntrRespHandler(fd) 
int fd; 

{ 

shastraldTag senderSIdTag ; 
hostData *pHostColl; 

/* terminate a pntr comm channel destroy wids etc */ 
/* destroy popdown pntr comm controller */ 
pHostColl = mplexGetHostData(fd) ; 
ShastraIdTagIn(fd, &senderSIdTag) ; 
if (pntrEndFunc != NULL) { 

(*pnt rEndFunc) (pHostColl, &senderSIdTag ) ; 

} 

else{ 

fprintf (stder r," pntrEndFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_END_PNTR) ; 
showCollablnf o( pFrontAppData->sbMsgBuf) ; 
return 0; 

} 

/* 

* Function 
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*/ 

int 

collSendPnt rReq ( pHostColl, nameBuf ) 
hostData *pHostColl; 
char *nameBuf; 

{ 

checkConn( ) ; 

sendReqString(REQ_SEND_PNTR, NULL) ; 
sendDataSt ring (nameBuf ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendPntrRespHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collSendPntrRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

if (pntrSendFileFunc != NULL) { 
(*pntrSendFileFunc) (pHostColl); 

} 

else{ 

fprintf (stderr, "pnt rSendFileFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_PNTR) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendPntrlnHandler(fd) 
int fd; 

{ 

/* recv msg from outside., update local view */ 
hostData *pHostColl; 
char *buf; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 
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fprintf (stderr, "collSendPntrInHandler( )->NULL Host data!\n"); 
return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 
buf = cmReceiveString(fd) ; 

sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", REQ_SEND_PNTR) ; 
if (pntrRecvFileFunc != NULL) { 

(*pnt rRecvFileFunc) (pHostColl, &senderSIdTag, buf); 

} 

else{ 

fprintf ( stderr, "pnt rRecvFileFunc ( )->no handler!\n") ; 

} 

showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
f ree(buf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgPntrReq(pHostColl, pPntrD) 
hostData *pHostColl; 
shaDoubles *pPntrD; 

{ 

shmlnfo *pShmInfo; 
int n; 

#ifdef USESHAREDMEMFORPNTR 

if (pFrontSId->lIPAddr == pHostCoU->pSId->lIPAdd r) { 
pShmlnfo = mplexOutShmInfo(pHostColl->fdSocket) ; 
n = strlen(str) + 1; 

if (shMemReuseSegment(pShmInfo, ((n > 10240) ? n : 10240)) == 0) { 
fprintf ( stderr, "collSendMsgPnt rReq ( )->couldn 't shMemReuseSegment !\n" 
); 

} 

memcpy ( pShmlnf o->shmAdd r, str, n); 
collSendMsgShmPntrReq(pHostColl, pShmlnfo) ; 
return 0; 

} 

#endif /* USESHAREDMEMFORPNTR */ 

checkConn( ) ; 

sendReqSt ring ( REQ_SEND_MSGPNTR, NULL) ; 
PntrBiteOut(pHostColl->fdSocket, pPntrD) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
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*/ 

int 

collSendMsgPntrRespHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgPntrRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

if (pntrSendMsgFunc != NULL) { 
(*pntrSendMsgFunc) (pHostColl); 

} 

else{ 

fprintf (stderr, " pntrSendMsgFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_MSGPNTR) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgPntrlnHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 
static shaDoubles pntrData; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collSendMsgPntrInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

PntrBiteIn(fd, &pntrData); 

if (pntrRecvMsgFunc != NULL) { 

(*pntrRecvMsgFunc) (pHostColl, &senderSIdTag, &pntrData); 

} 

else{ 

f print f ( stderr, "pnt rRecvMsgFunc ( )->no handler!\n"); 

} 

sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", REQ_SEND_MSGPNTR) ; 
showCollablnf o(pFrontAppData->sbMsgBuf) ; 
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return 0; 

} 

/* 

* Function 
*/ 
int 

collRecvdMsgPnt rReq ( pHostColl, nameBuf ) 
hostData *pHostColl; 
char *nameBuf; 

{ 



checkConn( ) ; 

sendReqSt ring ( REQ_RECVD_MSGPNTR, NULL) ; 
sendDataSt ring ( nameBuf ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgPnt rRespHandler(fd) 
int fd; 

{ 

/* NULL — recvd msg got to sesmgr */ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_RECVD_MSGPNTR) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgPnt rlnHandler ( f d ) 
int fd; 

{ 



hostData *pHostColl; 
char *nameBuf; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collRecvdMsgPntrInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

/* recvd ack that all collabs have heard, delete local buf */ 
nameBuf = cmReceiveSt ring ( f d ) ; 

sprintf (pFrontAppData->sbMsgBuf, "Done (in)— %s\n", REQ_RECVD_MSGPNTR) ; 
showCollablnf o(pF rontAppData->s bMsg Buf ) ; 
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printf ( "deleting %s\n", nameBuf); 
/* is a tmp file */ 
free (nameBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgShmPnt rReq ( pHostColl, pShmlnf o) 
hostData *pHostColl; 
shmlnfo *pShmInf o; 

{ 

if (pFrontSId->HPAddr != pHostColl->pSId->HPAdd r) { 

fprintf (stderr, "collSendMsgShmPntrReq( )->no non-local SHM\n" ) ; 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_SEND_MSGSHMPNTR, NULL) ; 
ShastraIntOut(pHostColl->fdSocket, &pShmInf o->shmId ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgShmPntrRespHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgShmPntrRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

if (pntrSendMsgFunc != NULL) { 
(*pntrSendMsgFunc) (pHostColl); 

} 

else{ 

fprintf (stderr, " pntrSendMsgFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_MSGSHMPNTR) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
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*/ 

int 

collSendMsgShmPnt rlnHandle r ( f d ) 
int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 

char *buf; 

static shaDoubles pntrData; 

shastraldTag senderSIdTag ; 

int shmld; 

shmlnfo *pShmInf o; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgShmPntrInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 
Shastralntln(fd, &shmld); 

if (pFrontSId->HPAddr != pHostColl->pSId->HPAdd r) { 

fprintf ( stderr, "collSendMsgShmPntrInHandler( )->no non-local SHM\n"); 
return -1; 

} 

pShmlnfo = mplexInShmlnf o ( f d ) ; 

if ( ! shMemReconnect (pShmlnfo, shmld)) { 

fprintf (stderr, "collSendMsgShmPntrInHandler( )->SHM recon problem\n" ) ; 

return -1; 

} 

buf = pShmlnf o->shmAddr; 

if (pntrRecvMsgFunc != NULL) { 

(*pntrRecvMsgFunc) (pHostColl, &senderSIdTag, &pntrData); 

} 

else{ 

f print f ( stderr, "pnt rRecvMsgFunc ( )->no handler!\n"); 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done (in) ~ %s\n", REQ_SEND_MSGSHMPNTR 
); 

showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collRecvdMsgShmPnt rReq ( pHostColl, pShmlnfo) 
hostData *pHostColl; 
shmlnfo *pShmInfo; 

{ 

if (pFrontSId->HPAddr != pHostColl->pSId->HPAdd r) { 
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f printf ( stderr, "collRecvdMsgShmPntrReq( )->no non-local SHM\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_RECVD_MSGSHMPNTR, NULL) ; 
ShastraIntOut(pHostColl->fdSocket, &pShmInf o->shmId ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgShmPntrRespHandler(fd) 
int fd; 

{ 

/* NULL — recvd msg got to sesmgr */ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_RECVD_MSGSHMPNTR) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgShmPntrlnHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 
shastraldTag senderSIdTag ; 
int shmld; 
shmlnfo *pShmInfo; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collRecvdMsgShmPnt rInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

Shastralntln(fd, &shmld); 

pShmlnfo = mplexOutShmlnf o(fd) ; 

if (shMemDelete(pShmInfo, shmld) == 0) { 

fprintf (stderr, "collRecvdMsgShmPnt rlnHandler ( ) ->couldn 1 1 shMemDelete ! \ 
n"); 

} 

/* recvd ack that all collabs have heard, delete shared seg */ 
sprintf (pFrontAppData->sbMsgBuf, "Done (in)-- %s\n", REQ_RECVD_MSGSHMPNTR 
); 

showCollablnf o(pFrontAppData->sbMsgBuf) ; 
return 0; 
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/* 

* Function 
*/ 
int 

collStartCursorReq(pHostColl) 
hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqString(REQ_START_CURSOR, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collStartCursorRespHandler( f d) 
int fd; 

{ 

/* start a cursor comm infrastructure., one cursor wid per member */ 
/* create and popup cursor comm controller */ 
shastraldTag senderSIdTag ; 
hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
ShastraIdTagIn(fd, &senderSIdTag) ; 
if (cursorStartFunc != NULL) { 

(*cursorStartFunc) (pHostColl, &senderSIdTag ) ; 

} 

else{ 

fprintf(stderr,"cursorStartFunc()->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_START_CURSOR) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collEndCursorReq( pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqString(REQ_END_CURSOR, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 
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/* 

* Function 
*/ 

int 

collEndCursorRespHandler(f d ) 
int fd; 

{ 

shastraldTag senderSIdTag ; 
hostData *pHostColl; 

/* terminate a cursor comm channel destroy wids etc */ 
/* destroy popdown cursor comm controller */ 
pHostColl = mplexGetHostData(fd) ; 
ShastraIdTagIn(fd, &senderSIdTag) ; 
if (cursorEndFunc != NULL) { 

(*cursorEndFunc) (pHostColl, &senderSIdTag) ; 

} 

else{ 

f print f ( stderr, "cursorEndFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_END_CURSOR) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collSendCursorReq( pHostColl, nameBuf ) 
hostData *pHostColl; 
char *nameBuf; 

{ 

checkConn( ) ; 

sendReqString(REQ_SEND_CURSOR, NULL) ; 
sendDataSt ring ( nameBuf ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendCursorRespHandler(f d) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collSendCursorRespHandler( )->NULL Host data!\n"); 
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return -1; 

} 

if (cursorSendFileFunc != NULL) { 
(*cursorSendFileFunc) (pHostColl) ; 

} 

else{ 

fprintf (stderr,"cursorSendFileFunc( )->no handler ! \n" ) ; 

} 

sprintf (pFront_AppData->sbMsgBuf , "Done — %s\n", REQ_SEND_CURSOR) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendCursorInHandler(f d) 
int fd; 

{ 

/* recv msg from outside., update local view */ 
hostData *pHostColl; 
char *buf; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, M collSendCursorInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 
buf = cmReceiveSt ring ( f d ) ; 

sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", REQ_SEND_CURSOR) ; 
if (cursorRecvFileFunc != NULL) { 

(*cursorRecvFileFunc) (pHostColl, &senderSIdTag , buf); 

} 

else{ 

fprintf (stderr, M cursorRecvFileFunc( )->no handler ! \n" ) ; 

} 

showCollablnf o(pF rontAppData->s bMsg Buf ) ; 
f ree(buf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgCursorReq( pHostColl, pCursorD) 
hostData *pHostColl; 
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shaDoubles *pCursorD; 

{ 

shmlnfo *pShmInf o; 

int n; 

#ifdef USESHAREDMEMFORCURSOR 

if (pFrontSId->HPAddr == pHostColl->pSId->lIPAdd r) { 
pShmlnfo = mplexOutShmInfo(pHostColl->fdSocket) ; 
n = strlen(str) + 1; 

if (shMemReuseSegment(pShmInfo, ((n > 10240) ? n : 10240)) == 0) { 
fprintf(stderr, "collSendMsgCursorReq( )->couldn 't shMemReuseSegment !\ 
n"); 

} 

memcpy ( pShmlnf o->shmAdd r, str, n); 
collSendMsgShmCursorReq(pHostColl, pShmlnfo) ; 
return 0; 

} 

#endif /* USESHAREDMEMFORCURSOR */ 

checkConn( ) ; 

sendReqSt ring ( REQ_SEND_MSGCURSOR, NULL) ; 
CursorBiteOut(pHostColl->fdSocket, pCursorD) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgCursorRespHandler(f d) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgCursorRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

if (cursorSendMsgFunc != NULL) { 
(*cursorSendMsgFunc) (pHostColl) ; 

} 

else{ 

fprintf(stderr,"cursorSendMsgFunc( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_MSGCURSOR) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 
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* Function 
*/ 

int 

collSendMsgCursorInHandler( f d) 
int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 
static shaDoubles cursorData; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgCursorInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

CursorBiteIn(fd, &cursorData) ; 
if (cursorRecvMsgFunc != NULL) { 

(*cursorRecvMsgFunc) (pHostColl, &senderSIdTag, &cursorData) ; 

} 

else{ 

fprintf (stderr, "cursorRecvMsgFunc( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", REQ_SEND_MSGCURSOR) 

showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgCu r so rReq (pHostColl, nameBuf ) 
hostData *pHostColl; 
char *nameBuf; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_RECVD_MSGCURSOR, NULL) ; 
sendDataString(nameBuf ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collRecvdMsgCu rsorRespHandler ( f d ) 
int fd; 
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/* NULL — recvd msg got to sesmgr */ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_RECVD_MSGCURSOR) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collRecvdMsgCursorlnHandler ( f d ) 
int fd; 

{ 

hostData *pHostColl; 
char *nameBuf; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collRecvdMsgCursorInHandler( )->NULL Host data!\n"); 

return -1; 

} 



ShastraIdTagIn(fd, &senderSIdTag) ; 

/* recvd ack that all collabs have heard, delete local buf */ 
nameBuf = cmReceiveSt ring ( f d ) ; 

sprintf (pFrontAppData->sbMsgBuf, "Done (in)— %s\n", REQ_RECVD_MSGCURSOR) 

showCollablnf o(pF rontAppData->s bMsg Buf ) ; 
printf ("deleting %s\n", nameBuf); 
/* is a tmp file */ 
free (nameBuf ) ; 
return 0; 



* Function 
*/ 
int 

collSendM sgShmCur so rReq( pHostColl, pShmlnf o) 
hostData *pHostColl; 
shmlnfo *pShmInfo; 

{ 

if (pFrontSId->HPAddr != pHostColl->pSId->HPAdd r) { 

fprintf ( stderr, M collSendMsgShmCursorReq( )->no non-local SHM\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_SEND_MSGSHMCURSOR, NULL) ; 
ShastralntOut (pHostColl->fdSocket, &pShmInf o->shmId ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 
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/* 

* Function 
*/ 
int 

collSendMsgShmCursorRespHandler(f d) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgShmCursorRespHandler( )->NULL Host data!\n") 

return -1; 

} 

if (cursorSendMsgFunc != NULL) { 
(*cursorSendMsgFunc) (pHostColl) ; 

} 

else{ 

fprintf(stderr,"cursorSendMsgFunc( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_MSGSHMCURSOR) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgShmCursorlnHandler ( f d ) 
int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 

char *buf; 

static shaDoubles cursorData; 

shastraldTag senderSIdTag ; 

int shmld; 

shmlnfo *pShmInfo; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf ( stderr, "collSendMsgShmCursorInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 
Shastralntln(fd, &shmld); 
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if (pFrontSId->lIPAddr != pHostColl->pSId->lIPAdd r) { 

f printf ( stderr, "collSendMsgShmCursorInHandler( )->no non-local SHM\n"); 
return -1; 

} 

pShmlnfo = mplexInShmlnf o ( f d ) ; 

if ( ! shMemReconnect ( pShmlnf o, shmld)) { 

fprintf (stderr, "collSendMsgShmCursorInHandler( )->SHM recon problem\n" ) 

return -1; 

} 

buf = pShmlnf o->shmAdd r; 

if (cursorRecvMsgFunc != NULL) { 

(*cursorRecvMsgFunc) (pHostColl, &senderSIdTag, &cursorData) ; 

} 

else{ 

fprintf (stderr, M cursorRecvMsgFunc( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", 

REQ_SEND_MSGSHMCURSOR) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 

int 

collRecvdMsgShmCursorReq(pHostColl, pShmlnf o) 
hostData *pHostColl; 
shmlnfo *pShmInfo; 

{ 

if (pFrontSId->HPAddr != pHostColl->pSId->HPAdd r) { 

fprintf (stderr, "collRecvdMsgShmCursorReq ( )->no non-local SHM\n" ) ; 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_RECVD_MSGSHMCURSOR, NULL) ; 
ShastralntOut (pHostColl->fdSocket, &pShmInf o->shmId ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgShmCursorRespHandler( f d) 
int fd; 

{ 

/* NULL — recvd msg got to sesmgr */ 

sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_RECVD_MSGSHMCURSOR) ; 
showCollablnf o(pF rontAppData->s bMsg Buf ) ; 
return 0; 
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} 

/* 

* Function 
*/ 
int 

collRecvdMsgShmCursorInHandler(f d ) 
int fd; 

{ 

hostData *pHostColl; 
shastraldTag senderSIdTag ; 
int shmld; 
shmlnfo *pShmInf o; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collRecvdMsgShmCursorlnHandler ( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

Shastralntln(fd, &shmld); 

pShmlnfo = mplexOutShmlnf o(fd) ; 

if (shMemDelete(pShmInfo, shmld) == 0) { 

fprintf(stderr, "collRecvdMsgShmCursorlnHandler ( )->couldn 't shMemDelete 
!\n"); 

} 

/* recvd ack that all collabs have heard, delete shared seg */ 
sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", 

REQ_RECVD_MSGSHMCURSOR) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



} 



/* 

* Function 
*/ 
int 

collStartXSCntlReq( pHostColl) 
hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_START_XSCNTL, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collStartXSCntlRespHandler(fd) 
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int fd; 

{ 

/* start a xsCntl comm infrastructure.. */ 
shastraldTag senderSIdTag ; 
hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collStartXSCntlRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 
if (xsCntlStartFunc != NULL) { 

(*xsCntlStartFunc) (pHostColl, &senderSIdTag ) ; 

} 

else{ 

fprintf (stderr, "xsCntlStartFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_START_XSCNTL) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collEndXSCntlReq( pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqString(REQ_END_XSCNTL, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collEndXSCntlRespHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 
shastraldTag senderSIdTag; 
/* terminate a xsCntl comm channel */ 
pHostColl = mplexGetHostData(fd) ; 
ShastraIdTagIn(fd, &senderSIdTag) ; 
if (xsCntlEndFunc != NULL) { 

(*xsCntlEndFunc) (pHostColl, &senderSIdTag) ; 

} 

else{ 



Page 79 of 1 03 



frontCollClient.c 



7/5/11 11:54 AM 



fprintf(stderr,"xsCntlEndFunc( )->no handler!\n") ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_END_XSCNTL) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendXSCntlReq(pHostColl, nameBuf ) 
hostData *pHostColl; 
char *nameBuf; 

{ 

checkConn( ) ; 

sendReqString(REQ_SEND_XSCNTL, NULL) ; 
sendDataString(nameBuf ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendXSCntlRespHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendXSCntlRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

if (xsCntlSendFileFunc != NULL) { 
(*xsCntlSendFileFunc) (pHostColl) ; 

} 

else{ 

fprintf (stderr, "xsCntlSendFileFunc ( )->no handler ! \n" ) ; 

} 

return 0; 
/* 

* sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_SEND_XSCNTL) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 



/* 

* Function 

*/ 
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int 

collSendXSCntllnHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 
char *buf; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendXSCntlInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

buf = cmReceiveString(fd) ; 

if (xsCntlRecvFileFunc != NULL) { 

(*xsCntlRecvFileFunc) (pHostColl, &senderSIdTag , buf); 

} 

else{ 

fprintf ( stderr, "xsCntlRecvFileFunc ( )->no handler!\n") ; 

} 

showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
f ree(buf ) ; 

sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", REQ_SEND_XSCNTL) ; 
showCollablnf o(pF rontAppData->s bMsg Buf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgXSCntlReq( pHostColl, pXSCBites) 
hostData *pHostColl; 
xsCntlDatas *pXSCBites; 

{ 

shmlnfo *pShmInfo; 
int n; 

#ifdef USESHAREDMEMFORXSCD 

if (pFrontSId->HPAddr == pHostColl->pSId->HPAdd r) { 
pShmlnfo = mplexOutShmInfo(pHostColl->fdSocket) ; 
n = 0; /* HMMM */ 

if (shMemReuseSegment(pShmInfo, ((n > 10240) ? n : 10240)) == 0) { 
fprintf (stderr, "collSendMsgXSCntlReq ( ) ->couldn 1 t shMemReuseSegment ! \ 
n"); 

} 

xsCntlDatasMemOut ( pShmlnf o->shmAdd r, pShmlnf o->shmSize, pXSCBites) ; 
collSendMsgShmXSCntlReq(pHostColl, pShmlnfo) ; 
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return 0; 

} 

#endif /* USESHAREDMEMFORXSCD */ 

checkConn( ) ; 

sendReqSt ring ( REQ_SEND_MSGXSCNTL, NULL) ; 
XSCntlBitesOut(pHostColl->fdSocket, pXSCBites) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgXSCntlRespHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgXSCntlRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

if (xsCntlSendMsgFunc != NULL) { 
(*xsCntlSendMsgFunc) (pHostColl) ; 

} 

else{ 

fprintf (stderr, "xsCntlSendMsgFunc ( )->no handler ! \n" ) ; 

} 

return 0; 
/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_MSGXSCNTL) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 



/* 

* Function 
*/ 
int 

collSendMsgXSCntllnHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 
char *buf; 
shastraldTag senderSIdTag ; 
static xsCntlDatas xsCntlBites; 

pHostColl = mplexGetHostData(fd) ; 
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if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgXSCntlInHandler( )->NULL Host data!\n"); 
return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

XSCntlBitesIn(fd, &xsCntlBites ) ; 
if (xsCntlRecvMsgFunc != NULL) { 

(*xsCntlRecvMsgFunc) (pHostColl, &senderSIdTag, &xsCntlBites ) ; 

} 

else{ 

fprintf (stderr, "xsCntlRecvMsgFunc ( ) ->no handler!\n") ; 

} 

return 0; 
/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", 

REQ_SEND_MSGXSCNTL) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 



/* 

* Function 
*/ 
int 

collRecvdMsgXSCntlReq( pHostColl, nameBuf ) 
hostData *pHostColl; 
char *nameBuf; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_RECVD_MSGXSCNTL, NULL) ; 
sendDataString(nameBuf ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collRecvdMsgXSCntlRespHandler(fd) 
int fd; 

{ 

/* NULL — recvd msg got to sesmgr */ 

return 0; 

/* 

* sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_RECVD_MSGXSCNTL) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 

} 

/* 
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* Function 
*/ 
int 

coURecvdMsgXSCntllnHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 
char *nameBuf; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collRecvdMsgXSCntlInHandler( )->NULL Host data!\n"); 

return -1; 

} 



ShastraIdTagIn(fd, &senderSIdTag) ; 

/* recvd ack that all collabs have heard, delete local buf */ 
nameBuf = cmReceiveSt ring ( f d ) ; 

sprintf (pFrontAppData->sbMsgBuf , "Done (in)— %s\n", REQ_RECVD_MSGXSCNTL) 

showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
printf ( "deleting %s\n", nameBuf); 
/* is a tmp file */ 
free (nameBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgShmXSCntlReq( pHostColl, pShmlnfo) 
hostData *pHostColl; 
shmlnfo *pShmInfo; 

{ 

if (pFrontSId->HPAddr != pHostColl->pSId->HPAdd r) { 

fprintf (stderr, M collSendMsgShmXSCntlReq( )->no non-local SHM\n" ) ; 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_SEND_MSGSHMXSCNTL, NULL) ; 
ShastraIntOut(pHostColl->fdSocket, &pShmInf o->shmId ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 



/* 

* Function 
*/ 
int 

collSendMsgShmXSCntlRespHandler(fd) 
int fd; 



Page 84 of 1 03 



frontCollClient.c 



7/5/11 11:54 AM 



{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgShmXSCntlRespHandler( )->NULL Host data!\n") 

return -1; 

} 

if (xsCntlSendMsgFunc != NULL) { 
(*xsCntlSendMsgFunc) (pHostColl) ; 

} 

else{ 

fpr in tf( stderr, "xsCntlSendMsgFunc() ->no handler!\n") ; 

} 

return 0; 
/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_MSGSHMXSCNTL 

); 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 



/* 

* Function 
*/ 
int 

collSendMsgShmXSCntllnHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 
shastraldTag senderSIdTag ; 
int shmld; 
shmlnfo *pShmInfo; 
static xsCntlDatas xsCntlBites; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgShmXSCntlInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 
Shastralntln(fd, &shmld); 

if (pFrontSId->HPAddr != pHostColl->pSId->HPAdd r) { 

fprintf ( stderr, "collSendMsgShmXSCntlInHandler( )->no non-local SHM\n"); 
return -1; 

} 

pShmlnfo = mplexInShmlnf o ( f d ) ; 

if ( ! shMemReconnect (pShmlnfo, shmld)) { 
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f printf ( stderr, "collSendMsgShmXSCntlInHandler( )->SHM recon problenAn" ) 
return -1; 

} 

xsCntlDatasMemIn(pShmInfo->shmAddr, pShmlnf o->shmSize, &xsCntlBites ) ; 
if (xsCntlRecvMsgFunc != NULL) { 

(*xsCntlRecvMsgFunc) (pHostColl, &senderSIdTag, &xsCntlBites ) ; 

} 

else{ 

fprintf( stderr, "xsCntlRecvMsgFunc ( ) ->no handler!\n") ; 

} 

/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", 

REQ_SEND_MSGSHMXSCNTL) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 

return 0; 



/* 

* Function 
*/ 

int 

coURecvdMsgShmXSCntlReq(pHostColl, pShmlnfo) 
hostData *pHostColl; 
shmlnfo *pShmInfo; 

{ 

if (pFrontSId->lIPAddr != pHostColl->pSId->lIPAdd r) { 

fprintf (stderr, "collRecvdMsgShmXSCntlReq ( )->no non-local SHM\n" ) ; 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_RECVD_MSGSHMXSCNTL, NULL) ; 
ShastralntOut (pHostColl->fdSocket, &pShmInf o->shmId ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgShmXSCntlRespHandler(fd) 
int fd; 

{ 

/* NULL — recvd msg got to sesmgr */ 

return 0; 

/* 

* sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", 

REQ_RECVD_MSGSHMXSCNTL) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 

} 
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/* 

* Function 
*/ 
int 

coURecvdMsgShmXSCntllnHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 
shastraldTag senderSIdTag ; 
shmlnfo *pShmInf o; 

int shmld; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collRecvdMsgShmXSCntllnHandler ( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

Shastralntln(fd, &shmld); 

pShmlnfo = mplexOutShmlnf o(fd) ; 

if (shMemDelete(pShmInfo, shmld) == 0) { 

fprintf(stderr, "collRecvdMsgShmXSCntllnHandler ( )->couldn 't shMemDelete 
!\n"); 

} 

/* recvd ack that all collabs have heard, delete shared seg */ 
sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", 

REQ_RECVD_MSGSHMXSCNTL) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collStartPictReq( pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqString(REQ_START_PICT, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collStartPictRespHandler(fd) 
int fd; 

{ 
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/* start a pict comm infrastructure.. */ 
shastraldTag senderSIdTag ; 
hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collStartPictRespHandler ( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 
if (pictStartFunc != NULL) { 

(*pictStartFunc) (pHostColl, &senderSIdTag) ; 

} 

else{ 

f print f ( stderr, "pictStartFunc ( )->no handler ! \n" ) ; 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_START_PICT) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collEndPictReq( pHostColl) 

hostData *pHostColl; 

{ 

checkConn( ) ; 

sendReqString(REQ_END_PICT, NULL) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collEndPictRespHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 
shastraldTag senderSIdTag; 
/* terminate a pict comm channel */ 
pHostColl = mplexGetHostData(fd) ; 
ShastraIdTagIn(fd, &senderSIdTag) ; 
if (pictEndFunc != NULL) { 

(*pictEndFunc) (pHostColl, &senderSIdTag ) ; 

} 

else{ 

fprintf (stderr, "pict End Func( )->no handler ! \n" ) ; 

} 
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sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_END_PICT) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendPictReq(pHostColl, nameBuf ) 
hostData *pHostColl; 
char *nameBuf; 

{ 

checkConn( ) ; 

sendReqString(REQ_SEND_PICT, NULL) ; 
sendDataSt ring (nameBuf ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendPictRespHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendPictRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

if (pictSendFileFunc != NULL) { 
(*pictSendFileFunc) (pHostColl); 

} 

else{ 

fprintf (stderr, "pictSendFileFunc ( )->no handler ! \n" ) ; 

} 

return 0; 
/* 

* sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_SEND_PICT) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 



/* 

* Function 
*/ 
int 

collSendPictlnHandler(fd) 
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int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 
char *buf; 
shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendPictInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

buf = cmReceiveString(fd) ; 

if (pictRecvFileFunc != NULL) { 

(*pictRecvFileFunc) (pHostColl, &senderSIdTag, buf); 

} 

else{ 

fprintf (stderr, "pictRecvFileFunc ( )->no handler ! \n" ) ; 

} 

showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
f ree(buf ) ; 

sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", REQ_SEND_PICT) ; 
showCollablnf o( pFrontAppDat a->sbMsg Buf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgPictReq( pHostColl, pPCBites) 
hostData *pHostColl; 
pictPieces *pPCBites; 

{ 

shmlnfo *pShmInfo; 
int n; 

#ifdef USESHAREDMEMFORPICT 

if (pFrontSId->HPAddr == pHostColl->pSId->HPAdd r) { 
pShmlnfo = mplexOutShmInfo(pHostColl->fdSocket) ; 
n = 0; /* HMMM */ 

if (shMemReuseSegment(pShmInfo, ((n > 10240) ? n : 10240)) == 0) { 
fprintf ( stderr, "collSendMsgPictReq ( )->couldn 't shMemReuseSegment !\n" 
); 

} 

pictPiecesMemOut ( pShmlnf o->shmAdd r, pShmlnf o->shmSize, pPCBites) ; 
collSendMsgShmPictReq ( pHostColl, pShmlnfo) ; 
return 0; 

} 
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#endif /* USESHAREDMEMFORPICT */ 

checkConn( ) ; 

sendReqString(REQ_SEND_MSGPICT, NULL) ; 
PictDataBitesOut(pHostColl->fdSocket, pPCBites) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collSendMsgPictRespHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgPictRespHandler( )->NULL Host data!\n"); 

return -1; 

} 

if (pictSendMsgFunc != NULL) { 
(*pictSendMsgFunc) (pHostColl); 

} 

else{ 

fprintf (stderr, " pictSendMsgFunc ( )->no handler ! \n" ) ; 

} 

return 0; 
/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_MSGPICT) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 



/* 

* Function 
*/ 
int 

collSendMsgPictlnHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 
char *buf; 
shastraldTag senderSIdTag ; 
static pictPieces pictBites; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgPictlnHandler ( )->NULL Host data!\n"); 



Page 91 of 103 



frontCollClient.c 



7/5/11 11:54 AM 



return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

PictDataBitesIn(fd, &pictBites); 
if (pictRecvMsgFunc != NULL) { 

(*pictRecvMsgFunc) (pHostColl, &senderSIdTag, &pictBites); 

} 

else{ 

fprintf(stderr,"pictRecvMsgFunc()->no handler!\n") ; 

} 

return 0; 
/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", REQ_SEND_MSGPICT 

); 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 



/* 

* Function 
*/ 
int 

collRecvdMsgPictReq(pHostColl, nameBuf ) 
hostData *pHostColl; 
char *nameBuf; 

{ 

checkConn( ) ; 

sendReqString(REQ_RECVD_MSGPICT, NULL) ; 
sendDataString(nameBuf ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 

int 

collRecvdMsgPictRespHandler(fd) 
int fd; 

{ 

/* NULL — recvd msg got to sesmgr */ 

return 0; 

/* 

* sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_RECVD_MSGPICT) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 

} 

/* 

* Function 

*/ 
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int 

collRecvdMsgPictInHandler(f d) 

int fd; 

{ 

hostData *pHostColl; 

char *nameBuf; 

shastraldTag senderSIdTag ; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collRecvdMsgPictInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

/* recvd ack that all collabs have heard, delete local buf */ 
nameBuf = cmReceiveSt ring ( f d ) ; 

sprintf (pFrontAppData->sbMsgBuf , "Done (in)— %s\n", REQ_RECVD_MSGPICT) ; 

showCollablnf o(pFrontAppData->sbMsgBuf ) ; 

printf ("deleting %s\n", nameBuf); 

/* is a tmp file */ 

free (nameBuf ) ; 

return 0; 

} 

/* 

* Function 
*/ 

int 

collSendMsgShmPictReq( pHostColl, pShmlnfo) 
hostData *pHostColl; 
shmlnfo *pShmInfo; 

{ 

if (pFrontSId->HPAddr != pHostColl->pSId->HPAdd r) { 

fprintf ( stderr, M collSendMsgShmPictReq( )->no non-local SHM\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_SEND_MSGSHMPICT, NULL) ; 
ShastraIntOut(pHostColl->fdSocket, &pShmInf o->shmId ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collSendMsgShmPictRespHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 
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pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgShmPict_RespHandler( )->NULL Host data!\n"); 

return -1; 

} 

if (pictSendMsgFunc != NULL) { 
(*pictSendMsgFunc) (pHostColl); 

} 

else{ 

fprintf(stderr,"pictSendMsgFunc()->no handler!\n") ; 

} 

return 0; 
/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SEND_MSGSHMPICT) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 



/* 

* Function 
*/ 
int 

collSendMsgShmPictlnHandler(fd) 
int fd; 

{ 

hostData *pHostColl; 

/* recv msg from outside., update local view */ 
shastraldTag senderSIdTag ; 
int shmld; 
shmlnfo *pShmInfo; 
static pictPieces pictBites; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collSendMsgShmPictInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 
Shastralntln(fd, &shmld); 

if (pFrontSId->HPAddr != pHostColl->pSId->HPAdd r) { 

fprintf (stderr, "collSendMsgShmPictInHandler( )->no non-local SHM\n" ) ; 
return -1; 

} 

pShmlnfo = mplexInShmlnf o ( f d ) ; 

if ( ! shMemReconnect ( pShmlnf o, shmld)) { 

fprintf ( stderr, "collSendMsgShmPictInHandler( )->SHM recon problem\n"); 

return -1; 

} 

pictPiecesMemIn(pShmInfo->shmAddr, pShmlnf o->shmSize, &pictBites) ; 
if (pictRecvMsgFunc != NULL) { 
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(*pictRecvMsgFunc) (pHostColl, &senderSIdTag, &pictBites); 

} 

else{ 

fprintf (stderr,"pictRecvMsgFunc( )->no handler ! \n" ) ; 

} 

/* 

* sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", 

REQ_SEND_MSGSHMPICT) ; 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 

return 0; 



/* 

* Function 
*/ 
int 

collRecvdMsgShmPictReq(pHostColl, pShmlnfo) 
hostData *pHostColl; 
shmlnfo *pShmInfo; 

{ 

if (pFrontSId->lIPAddr != pHostColl->pSId->lIPAdd r) { 

fprintf ( stderr, "collRecvdMsgShmPictReq( )->no non-local SHM\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_RECVD_MSGSHMPICT, NULL) ; 
ShastraIntOut(pHostColl->fdSocket, &pShmInf o->shmId ) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 

int 

collRecvdMsgShmPictRespHandler(fd) 
int fd; 

{ 

/* NULL — recvd msg got to sesmgr */ 

return 0; 

/* 

* sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_RECVD_MSGSHMPICT) 

* showCollabInfo(pFrontAppData->sbMsgBuf ) ; 
*/ 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgShmPictlnHandler(fd) 
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int 

{ 

hostData 
shastraldTag 
shmlnf o 
int 



fd; 

*pHostColl; 

senderSIdTag; 
*pShmInf o; 

shmld ; 



pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collRecvdMsgShmPictInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &senderSIdTag) ; 

Shastralntln(fd, &shmld); 

pShmlnfo = mplexOutShmlnf o(fd) ; 

if (shMemDelete(pShmInfo, shmld) == 0) { 

f print f ( stderr, "collRecvdMsgShmPictInHandler( )->couldn 1 t shMemDelete ! \ 
n"); 

} 

/* recvd ack that all collabs have heard, delete shared seg */ 
sprintf (pFrontAppData->sbMsgBuf , "Done (in)-- %s\n", REQ_RECVD_MSGSHMPICT 
); 

showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



*/ 
int 

collCommMsgTextReq( pHostColl, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 



hostData 
shastraldTag 
shastraldTag 
shastraldTag 
char 



*pHostColl; 

*pSmSIdTag; 

*pToSIdTag; 

*pSIdTag; 

*sbMsg; 



} 



checkConn( ) ; 

sendReqSt ring ( REQ_COMM_MSGTEXT, NULL) ; 
ShastraIdTagOut(pHostColl->fdSocket, pSmSIdTag ) ; 
ShastraIdTagOut(pHostColl->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostColl->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

collCommMsgTextRespHandler( f d) 
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sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_COMM_MSGTEXT) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 
int 

collCommMsgTextlnHandler ( f d ) 
int fd; 

{ 



/* receive sesm idtag, display recvd message */ 

shastraldTag smSIdTag; 

shastraldTag toSIdTag; 

shastraldTag sldTag; 

char *sMsg; 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collCommMsgTextlnHandler ( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 

collabCommRecvdMessageOprn(smSIdTag, sldTag, sMsg); 

sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", REQ_COMM_MSGTEXT) ; 
showCollablnf o( pFrontAppData->sbMsgBuf) ; 
f ree(sMsg) ; 
return 0; 



*/ 
int 

collCommMsgTextFileReq(pHostColl, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 



hostData 
shastraldTag 
shastraldTag 
shastraldTag 
char 



*pHostColl; 

*pSmSIdTag; 

*pToSIdTag; 

*pSIdTag; 

*sbMsg; 



checkConn( ) ; 

sendReqSt ring ( REQ_COMM_MSGTEXTFILE, NULL) ; 
ShastraIdTagOut(pHostColl->fdSocket, pSmSIdTag) ; 
ShastraIdTagOut(pHostColl->fdSocket, pToSIdTag) ; 
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ShastraIdTagOut(pHostColl->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collCommMsgTxtFileRespHandler ( f d ) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_COMM_MSGTEXTFILE) ; 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

collCommMsgTxtFilelnHandler ( f d ) 
int fd; 

{ 

/* receive sesm idtag, display recvd message */ 

shastraldTag smSIdTag; 

shastraldTag toSIdTag; 

shastraldTag sldTag; 

char *sMsg; 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collCommMsgTxtFileInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
/* show in dialog */ 

sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", 

REQ_COMM_MSGTEXTFILE) ; 
showCollablnf o( pFrontAppData->sbMsgBuf) ; 
f ree(sMsg) ; 
return 0; 



/* 

* Function 

*/ 



Page 98 of 1 03 



frontCollClient.c 



7/5/11 11:54 AM 



collCommMsgAudioReq(pHostColl, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 



hostData 
shastraldTag 
shastraldTag 
shastraldTag 
char 



*pHostColl; 
*pSmSIdTag; 
*pToSIdTag; 
*pSIdTag; 
*sbMsg; 



checkConn( ) ; 

sendReqString(REQ_COMM_MSGAUDIO, NULL) ; 
ShastraIdTagOut(pHostColl->fdSocket, pSmSIdTag ) ; 
ShastraIdTagOut(pHostColl->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostColl->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



*/ 
nt 

ollCommMsgAudioRespHandler ( f d ) 
int fd; 

sprintf ( pFrontAppData->sbMsgBuf , "Done 
showCollablnf o( pFrontAppData->sbMsgBuf ) 
return 0; 



%s\n", REQ_COMM_MSGAUDIO) 



*/ 
int 

collCommMsgAudioInHandler ( f d ) 



int 



fd; 



{ 



/* receive sesm idtag, display recvd message */ 

shastraldTag smSIdTag; 

shastraldTag toSIdTag; 

shastraldTag sldTag; 

char *sMsg; 

hostData *pHostColl; 

pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

f printf ( stderr, "collCommMsgAudioInHandler( )->NULL Host data!\n" 

return -1; 

} 



ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
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sMsg = cmReceiveSt ring ( f d ) ; 

/* send to service tool for handling */ 

sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", REQ_COMM_MSGAUDIO) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
f ree(sMsg) ; 
return 0; 



*/ 
int 

collCommMsgAudioFileReq(pHostColl, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 



hostData 
shastraldTag 
shastraldTag 
shastraldTag 
char 



*pHostColl; 
*pSmSIdTag; 
*pToSIdTag; 
*pSIdTag; 
*sbMsg; 



checkConn( ) ; 

sendReqSt ring ( REQ_COMM_MSGAUDIOFILE, NULL) ; 
ShastraIdTagOut(pHostColl->fdSocket, pSmSIdTag ) ; 
ShastraIdTagOut(pHostColl->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostColl->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



*/ 
nt 

ollCommMsgAudioFileRespHandler ( f d ) 
int fd; 

sprintf ( pFrontAppData->sbMsgBuf , "Done 
showCollablnf o( pFrontAppData->sbMsgBuf) 
return 0; 



%s\n", REQ_COMM_MSGAUDIOFILE) ; 



*/ 
int 

collCommMsgAudioFilelnHandler ( f d ) 



int 



fd; 



{ 



/* receive sesm idtag, display recvd message */ 
shastraldTag smSIdTag; 
shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 
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hostData 



*pHostColl; 



pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collCommMsgAudioFileInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &smSIdTag); 

ShastraIdTagIn(fd, &toSIdTag); 

ShastraIdTagIn(fd, &sIdTag); 

sMsg = cmReceiveSt ring ( f d ) ; 

/* send to service tool for handling */ 

sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", 

REQ_COMM_MSGAUDIOFILE) ; 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
f ree(sMsg) ; 
return 0; 



* Function 
*/ 
int 

collCommMsgVideoReq( pHostColl, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 



hostData 
shastraldTag 
shastraldTag 
shastraldTag 
char 



*pHostColl; 

*pSmSIdTag; 

*pToSIdTag; 

*pSIdTag; 

*sbMsg; 



checkConn( ) ; 

sendReqString(REQ_COMM_MSGVIDEO, NULL) ; 
ShastraIdTagOut(pHostColl->fdSocket, pSmSIdTag ) ; 
ShastraIdTagOut(pHostColl->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostColl->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



ollCommMsgVideoRespHandler ( f d ) 
int fd; 



sprintf ( pFrontAppData->sbMsgBuf , "Done 
showCollablnf o( pFrontAppData->sbMsgBuf) 
return 0; 



%s\n", REQ_COMM_MSGVIDEO) 
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* Function 
*/ 
int 

collCommMsgVideoInHandler(f d) 



{ 



fd; 

/* receive sesm idtag, display recvd message */ 



shastraldTag 
shastraldTag 
shastraldTag 
char 

hostData 



smSIdTag; 

toSIdTag; 

sldTag; 
*sMsg ; 
*pHostColl; 



pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collCommMsgVideoInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveSt ring ( f d ) ; 
/* send to service tool for handling */ 
sprintf (pFrontAppData->sbMsgBuf , "Done (in) 
showCollablnf o( pFrontAppData->sbMsgBuf ) ; 
f ree(sMsg) ; 
return 0; 



%s\n", REQ_COMM_MSGVIDEO) 



*/ 
int 

collCommMsgVideoFileReq( pHostColl, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 



hostData 
shastraldTag 
shastraldTag 
shastraldTag 
char 



*pHostColl; 

*pSmSIdTag; 

*pToSIdTag; 

*pSIdTag; 

*sbMsg; 



checkConn( ) ; 

sendReqSt ring ( REQ_COMM_MSGVI DEO FILE, NULL) ; 
ShastraIdTagOut(pHostColl->fdSocket, pSmSIdTag ) ; 
ShastraIdTagOut(pHostColl->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostColl->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostColl->fdSocket) ; 
return 0; 



/* 
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*/ 

int 

collCommMsgVideoFileRespHandler(f d) 
int fd; 



sprintf (pFrontAppData->sbMsgBuf , "Done - 
showCollablnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



%s\n", REQ_COMM_MSGVIDEOFILE) ; 



* Function 
*/ 
int 

collCommMsgVideoFileInHandler(f d) 



{ 



fd; 

/* receive sesm idtag, display recvd message */ 



shastraldTag 
shastraldTag 
shastraldTag 
char 

hostData 



smSIdTag; 

toSIdTag; 

sldTag; 
*sMsg ; 
*pHostColl; 



pHostColl = mplexGetHostData(fd) ; 
if (pHostColl == NULL) { 

fprintf (stderr, "collCommMsgVideoFileInHandler( )->NULL Host data!\n"); 

return -1; 

} 

ShastraIdTagIn(fd, &smSIdTag); 

ShastraIdTagIn(fd, &toSIdTag); 

ShastraIdTagIn(fd, &sIdTag); 

sMsg = cmReceiveSt ring ( f d ) ; 

/* send to service tool for handling */ 

sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", 

REQ_COMM_MSGVI DEO FILE ) ; 
showCollablnf o( pFrontAppData->sbMsgBuf) ; 
f ree(sMsg) ; 
return 0; 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* cISvrCntl.c 

*/ 

#include <stdio.h> 
#include <string.h> 

#include <shast ra/shast ra . h> 

#include <shast ra/utils/list . h> 

#include <shast ra/uitools/chooseOne. h> 
#include <shast ra/uitools/genui. h> 

#in elude <shastra/shautils/clientHosts.h> 
#in elude <shastra/shautils/kernelFronts.h> 

#include <shast ra/network/hostMgr . h> 
#include <shast ra/network/ server. h> 

#include <shast ra/f ront/f ront . h> 
#include <shast ra/f ront/f ront P. h> 
#in elude <shast ra/f ront/f ront_client . h> 
#in elude <shast ra/f ront/clSvrCntl . h> 
#in elude <shast ra/f ront /clSvrCnt IP. h> 
#in elude <shastra/front/shastraCntl.h> 

static Shast raToolMode iCISvrModeMine; 
static ShastraToolMode iCISvrMode; 
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static shastrald def ServerSId = { NULL, NULL, TEST_SERVICE_NAME}; 
extern chooseOne *pcoClSvr; 
hostData *pHostShaCurrClnt ; 

static shastraldTag currClntSIdTag; 



void 

clSvrSetSelfModeOprn( ) 
{ 

iCISvrModeMine = shastraNameToMode(pFrontSId->nmApplicn) ; 

} 



char ** 
getServerNameList (pSId) 
shastrald* pSId; 

{ 

char **sbNames; 

if(pSId == NULL){ 
if (iCISvrMode == 0){ 

def ServerSId . nmApplicn = pFrontSId->nmApplicn; 

} 

else{ 

def ServerSId . nmApplicn = shastraModeToName(iClSvrMode) ; 

} 

sbNames = clHosts2StrTab(&def ServerSId, PSIDNMHOST | PSIDNMAPPL); 

} 

else{ 

sbNames = clHosts2StrTab(pSId, PSIDNMHOST | PSIDNMAPPL); 

} 

return sbNames; 

} 

char ** 

getServerNameListByService( iService) 
int iService; 

{ 

char **sbNames; 

def ServerSId . nmApplicn = shastraServiceToName(iService) ; 

sbNames = clHosts2StrTab(&defServerSId, PSIDNMHOST | PSIDNMAPPL); 

return sbNames; 

} 

void 

setClSvrServerNamesOprn(pSId) 
shastrald *pSId; 

{ 

char **sbNames, *sService; 

if(pcoClSvr == NULL){ 
return; 
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} 

sService = shastraModeToName(iClSvrMode) ; 
if (strcmp(pSId->nmApplicn, sService) ){ 
return; /*not current service type*/ 

} 

sbNames = getServerNameList ( pSId ) ; 

chooseOneChangeList (pcoClSvr, sbNames, coNoInitialHighlight ) ; 
if (sbNames) { 

strListDestroy(sbNames) ; 

} 



/* 

* Function 
*/ 

void 

clSvrSetCurrHostOprn(pHost, f Force) 
hostData *pHost; 
int fForce; 

{ 

if(!fForce && ( pHostShaCu rrClnt != NULL)){ 
return; /*only set if not already set*/ 

} 

pHostShaCurrClnt = pHost; 

if (pHostShaCurrClnt != NULL){ 

currClntSIdTag = pHostShaCurrClnt->lSIDTag; 
#ifdef DEBUG 

fprintf (stderr, "currClntSIdTag = %ld, pHost = %ld\n", 
currClntSIdTag, pHost); 
#endif /* DEBUG */ 
} 

else{ 

clSv rUn select Op rn ( ) ; 

} 

/* 

set and update user interface element flags., mode etc 
*/ 

} 

/* 

* Function 
*/ 

void 

clSvrResetCurrHostOprn(pHost, fForce) 
hostData *pHost; 
int fForce; 

{ 

if(!fForce && (pHostShaCurrClnt != pHost)){ 

return; /*only set if not already set*/ 

} 

else{ 

clSv rUn select Op rn ( ) ; 

} 
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} 

hostData * 

clSvrHostFromService( iService, iCISvr) 
int iService; 
int iCISvr; 

{ 

hostData *pHost; 

def ServerSId . nmApplicn = shastraServiceToName(iService) ; 
pHost = getClntHostByIndex(&defServerSId, iCISvr) ; 

return pHost; 

} 

hostData * 

getClSvrHostFromIndex( iCISvr) 
int iCISvr; 

{ 

hostData *pHost; 
shastrald *pSId = NULL; 

if (currClntSIdTag){ 

pSId = mapSIdTag2SId(&currClntSIdTag) ; 

} 

if(pSId == NULL){ 

pSId = &def ServerSId; 

def ServerSId . nmApplicn = shastraModeToName(iClSvrMode) ; 

} 

pHost = getClntHostByIndex(pSId, iCISvr); 
#ifdef DEBUG 

fprintf (stderr,"getClSVrHostFromIndex( )->smIdTag = %ld, pHost = %ld\n", 
pHost->lSIDTag, pHost); 
#endif /* DEBUG */ 
return pHost; 

} 

void 

clSvrSetModeOprn( iMode) 

Shast raToolMode iMode; 

{ 

iCISvrMode = iMode; 
/*update the shown set*/ 

def ServerSId . nmApplicn = shastraModeToName( iCISvrMode) ; 
set CISvrServerNames Op rn(&def ServerSId ) ; 

} 

/* 

* Function 
*/ 
void 

clSvrUnselectOprn( ) 
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pHostShaCurrClnt = NULL; 
currClntSIdTag = 0; 

} 

/* 

* Function 
*/ 
void 

clSvrSelectOprn ( i) 
int i; 

{ 

hostData *pHost; 

pHost = getClSvrHostFromIndex( i) ; 
clSvrSetCurrHostOprn(pHost, True) ; 
if (clientSelectFunc != NULL) { 

(*client_Select_Func) (pHostShaCurrClnt) ; 

} 

} 



/* 

* Function 
*/ 

void 

clSvrRenameOprn ( i, name) 
int i; 
char *name; 

{ 

/*change*/ 

} 

/* 

* Function 
*/ 

void 

clSv rDis connect Oprn ( i) 
int i; 

{ 

hostData *pHost; 

pHost = getClSvrHostFromIndex( i) ; 

if (clntTerminateReq(NULL, pHost) == -1){ 

clSvrUtilPopupMessage("clntTerminateReq( ) Error ! \n" ) ; 

return; 

} 

} 

/* 

* Function 
*/ 

void 

clSvrTerminateOprn( i) 
int i; 
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{ 

hostData *pHost; 

pHost = getClSvrHostFromIndex( i) ; 

if (clntTerminateReq(NULL, pHost) == -1){ 

clSvrUtilPopupMessage("clntTerminateReq( ) Error ! \n" ) ; 

return; 

} 

clSvrUtilPopupMessageC'This operation is presently disabled ! \n" ) ; 



/* 

* Function 
*/ 

void 

clSvrCreateOprn ( sbName) 
char *sbName; 

{ 

printf ("create %s on %s\n", shastraModeToName(iClSvrMode) , sbName); 
/*execute a starter script*/ 

} 

/* 

* Function 
*/ 

void 

clSvrServerOprn ( sbName, iPort) 
char *sbName; 
int iPort; 

{ 

shastrald sld; 

shaCmdData *pCmdData = NULL; 

if ( ! strcmp(pFrontSId->nmApplicn, sbName) && 
(pFrontSId->iPort == iPort)){ 
clSvrUtilPopupMessageC'Warning : Connecting to self!\n"); 

} 

memset(&sld, 0, sizeof ( shast raid ) ) ; 
sld . nmApplicn = shastraModeToName(iClSvrMode) ; 
sld.nmHost = sbName; 
sld.iPort = iPort; 
/*CHECK*/ 

sld.lSIDTag = mplexGetUniqueld ( ) ; 
sld.HPAddr = hostName2IPAdd ress ( sbName) ; 
/*check if already connected*/ 

if (getClntHostByIdTag(&sId, &sld . ISIDTag ) != NULL){ 

ClSvrUtilPopupMessageC'Warning: Already connected to host!\n"); 

} 

printf ("server connect to %s on %s\n", sld . nmApplicn, sbName); 
/* connect using non-shastra info */ 
if ( client Cont rolDataFunc) { 

(*clientControlDataFunc) (shastraModeToService(iClSvrMode) , &pCmdData) ; 

if(pCmdData == NULL){ 

clSvrUtilPopupMessageC'Invalid Control Data!\n"); 
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return; 

} 

} 

else{ 

clSvrUtilPopupMessageC'Can 't Obtain Control Data!\n"); 
return; 

} 

if (clntConnectReq(NULL, &sld, pCmdData) == -1){ 

clSvrUtilPopupMessage("clntConnectReq( ) Error ! \n" ) ; 
return; 

} 

} 



/* 

* Function 
*/ 
void 

clSvrConnectOprn( iWhich) 
int iWhich; 

{ 

shastraldTag *pSIdTag; 

shastrald *pSId; 

shaCmdData *pCmdData = NULL; 

pSIdTag = krFrNdx2SIdTag(iWhich) ; 
pSId = mapSIdTag2SId(pSIdTag) ; 
if (pSId == NULL){ 

clSvrUtilPopupMessageC'Invalid System ! \n" ) ; 

return; 

} 

if(*pSIdTag == pFrontSId->lSIDTag ) { 

clSvrUtilPopupMessageC'Warning : Connecting to self!\n"); 

} 

/*check if already connected*/ 

if (getClntHostByIdTag(pSId, pSIdTag) != NULL){ 

ClSvrUtilPopupMessageC'Warning: Already connected ! \n" ) ; 

} 

if ( client Cont rolDataFunc) { 

(*clientCont rolDataFunc) ( shast raNameToService(pSId->nmApplicn) , & 

pCmdData) ; 
if (pCmdData == NULL){ 

ClSvrUtilPopupMessageC'Invalid Control Data!\n"); 
return; 

} 

} 

else{ 

ClSvrUtilPopupMessageC'Can 't Obtain Control Data!\n"); 
return; 

} 

if (clntConnectReq(NULL, pSId, pCmdData) == -1){ 

clSvrUtilPopupMessage("clntConnectReq( ) Error ! \n" ) ; 
return; 
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} 

} 



void 

clSvrOperationsOprn(pMgrCD, fUp) 
mgrCntlData *pMgrCD; 
int fUp; 

{ 

if (pHostShaCurrClnt == NULL){ 

clSvrUtilPopupMessageC'Invalid Current Server!\n"); 
return; 

} 

if (clientOperatorFunc != NULL) { 

(*clientOperatorFunc) (pHostShaCurrClnt) ; 

} 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#ifdef SHASTRA4SUN5 
#include <stdlib.h> 
#include <string.h> 
#include <sys/types . h> 
#include <sys/systeminf o. h> 
#include <unistd.h> 
int putenv(char *) ; 
#endif 

#include <sys/types . h> 
#include <sys/socket . h> 

#include <pwd.h> 
#include <sys/types . h> 
#include <unistd.h> 
#include <stdio.h> 
#include <malloc.h> 
#include <sys/errno. h> 
#include <netdb.h> 

#include <X11/Int rinsic . h> 
#include <X11/Xutil. h> 
#include <X11/St ringDef s . h> 

#include <Xm/Text.h> 

#include <shast ra/shast ra . h> 
#include <shast ra/shast raSt at eDefs . h> 

#include <shast ra/utils/list . h> 
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#in elude <shastra/uitools/buttonBox.h> 
#in elude <shast ra/uitools/toggleBox. h> 
#include <shast ra/uitools/stateBox. h> 
#include <shast ra/uitools/chooseOne. h> 
#include <shast ra/uitools/chooseMany . h> 
#include <shast ra/uitools/callbackArg . h> 
#include <shast ra/uitools/dialog . h> 
#include <shast ra/uitools/conf irmCB. h> 
#in elude <shastra/uitools/miscUtils.h> 
#in elude <shastra/uitools/strListUtilities.h> 



#in elude <shast ra/datacomm/shast raldH. h> 
#in elude <shast ra/datacomm/shast raldTagH. h> 

#include <shast ra/shautils/shautils . h> 
#include <shast ra/ s ha utils/ kernel Fronts . h> 
#include <shast ra/ s ha ut ils/ sesMg r Front s . h> 

#include <shast ra/network/ server. h> 
#include <shast ra/network/mplex. h> 
#in elude <shast ra/network/hostMg r . h> 

#in elude <shastra/kernel/kernel.h> 
#in elude <shast ra/kernel/kernelMainCB. h> 
#in elude <shast ra/kernel/kernel_server. h> 
#in elude <shast ra/ kerne 1/ kerne I Fallback. h> 
#include <shast ra/kernel/kernel_client . h> 
#include <shast ra/kernel/kernelState. h> 



#define SHASTRA_MALLOCDBGnn 

static char *GetShast raBaseDir ( ) ; 

#ifdef SHASTRA4SUN5 

extern char *strdup(Protl(char *) ) ; 

#endif 



static shaKernelAppData kernelAppData; 
shaKernelAppData *pKernelAppData = &kernelAppData; 
static shastrald kernShast raid ; 



shastrald *pKernelSId = &kernShastraId; 

char sbOutMsgBuf [1024] ; 
#define DEBUG 0 

int debug = DEBUG; 

extern int errno; 

int fMainKernel; 

int f ForcedXMainKernel; 

void getCmdLineArgs ( Prot2 ( int , char ** )); 

void cmdl_ineUsage(Protl(char **)); 

void getRegisterInfo(Protl(shastraId *) ) ; 
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void 
int 
int 
int 

unsigned long 
int 

#ifndef SHASTRA4SUN5 
#define MAXNAMELEN 128 
#endif 
char 
char 
char 



shastrald 
shastralds 

XtAppContext 

Widget 

int 
int 

char 

char 
char 
char 
int 



uiCreate(Prot2 (Widget, 
shast raHandleXEvent ( ) ; 
kernelPortNum; 
ma inKernClnt Socket ; 
kernellPAdd r; 
iKernelFrontlndex; 



kernelHostName [MAXNAMELEN] ; 
kernelUserName [MAXNAMELEN] ; 
kernelHeadHostName [MAXNAMELEN] 



XtAppContext )) 



kernelShast raid ; 
*pShast ra Front Ids ; 

shast raAppContext ; 

wgShastraTopLevel; 

iXAppFileDes; 

shast raServerStatus; 

*shastraPasswd = SHASTRAPASSWORD; 

*kernelAppName; 
*kernelDispName; 
*kernelPasswd ; 
kernelFNoGUI; 



/* fronts connected on kernel */ 



shaCmdData serverCmdData; 

cmCommand serve rCommandTab [ ] = SERVERCMDS; 

#define NSERVERCMDS ( sizeof ( serve rCommandTab) /sizeof ( cmCommand ) ) 

/* number of commands */ 

int serverNCmds = NSERVERCMDS; 

#ifdef SHASTRA_MALLOCDBG 
#ifdef SHASTRA4IRIS 
#include<sys/types . h> 
#include<malloc . h> 
#elif defined SHASTRA4SUN4 



int 
int 

#endif 
#endif 

int 
int 
int 



malloc_debug(Protl(int) ) ; 
malloc_verify(Prot0(void) ) ; 

/* SHASTRA_MALLOCDBG */ 

shast raFlush(Prot0( void ) ) ; 
shast raServiceSocket ; 
shast raPort ; 



shaCmdData kernelCmdData; 

cmCommand kernelCmdTab [ ] = KERNEL_CLIENTCMDS; 
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#define KERNEL_NCMDS ( sizeof ( kernelCmdTab) /sizeof ( cmCommand ) ) 
int kernelNCmds = KERNEL_NCMDS; 

cmCommand kernellnCmdTab [ ] = KERNEL_CLIENTINCMDS; 

#def ine KERNEL_INNCMDS ( sizeof ( ke rnellnCmdTab ) /sizeof ( cmCommand ) ) 

int kernellnNCmds = KERNEL_INNCMDS; 

hostData hostMainKern; 

hostData *pHostMainKern = &hostMainKern ; 



void 

shastraKernelSetupApplResDir( ) 
{ 

char sbName [1024] , *sName; 

sName = resolveNameFromBase(pKernelAppData->sDirBase, 
pKernelAppData->sDirDef s) ; 
sprintf (sbName, "XAPPLRESDIR=%s" , sName) ; 
putenv( sbName) ; 

} 

int 

main(argc, argv) 

int argc; 
char **argv; 

{ 

char *nname; 
FILE *fpHome; 
char *sName; 

struct hostent *pHostEnt; 

extern int closedChannelCleanUpHandler ( ) ; 

uid_t auid; 
struct passwd *apass; 
struct linger soLinger; 
unsigned int temp; 

static XrmOptionDescRec xrmOptionsf] = { 
DEFSHASTRAXRMOPTIONS 

}; 

static XtResource xrmResources [] = { 
{ XshaNbaseDirectory, XshaCbaseDirectory, XtRString, sizeof (String) , 
XtOff setOf (shaKernelAppData, sDirBase), XtRImmediate, 
(XtPointe r ) DEFSHASTRABASEDIR }, 
{ XshaNminimal, XshaCminimal, XtRBoolean, sizeof (Boolean) , 
XtOffsetOf (shaKernelAppData, fMinimal), XtRImmediate, 
(XtPointer)False }, 
{ XshaNconnect, XshaCconnect, XtRBoolean, sizeof (Boolean) , 
XtOffsetOf (shaKernelAppData, fConnect), XtRImmediate, 
(XtPointer)True }, 
{ XshaNnoGUI, XshaCnoGUI, XtRBoolean, sizeof ( Boolean ) , 
XtOffsetOf (shaKernelAppData, fNoGUI), XtRImmediate, (XtPointer) False} 
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{ XshaNusePixmap, XshaCusePixmap, XtRBoolean, sizeof (Boolean) , 

XtOff setOf (shaKernelAppData, fPixmap), XtRImmediate, (XtPointer) 
False}, 

{ XshaNhelp, XshaChelp, XtRBoolean, sizeof (Boolean) , 
XtOffsetOf (shaKernelAppData, fHelp), XtRImmediate, (XtPointer) False } 

{ XshaNservicePort, XshaCservicePort, XtRInt, sizeof (int), 
XtOffsetOf (shaKernelAppData, iSvcPort), XtRImmediate, (XtPointer)0 }, 

{ XshaNshastraPort, XshaCshastraPort, XtRInt, sizeof(int), 
XtOffsetOf (shaKernelAppData, iShaPort), XtRImmediate, (XtPointer)0 }, 

{ XshaNdebugLevel, XshaCdebugLevel, XtRInt, sizeof (int), 
XtOffsetOf (shaKernelAppData, iDbgLevel), XtRImmediate, (XtPointer)0 } 

{ XshaNdef sDirectory, XshaCdef sDirectory, XtRString, sizeof (String) , 

XtOffsetOf (shaKernelAppData, sDirDefs), XtRImmediate, 

(XtPointer ) DEFSHASTRADEFSDIR }, 
{ XshaNdataDirectory, XshaCdataDirectory, XtRString, sizeof (String) , 

XtOffsetOf (shaKernelAppData, sDirData), XtRImmediate, 

(XtPointer ) DEFSHASTRADATADIR }, 
{ XshaNbinDirectory, XshaCbinDirectory, XtRString, sizeof ( St ring ) , 

XtOffsetOf (shaKernelAppData, sDirBin), XtRImmediate, 

(XtPointer ) DEFSHASTRABINDIR }, 
{ XshaNlogFile, XshaClogFile, XtRString, sizeof (String) , 

XtOffsetOf (shaKernelAppData, sFileLog), XtRImmediate, 

(XtPointer ) DEFSHASTRALOGFILE }, 
{ XshaNhomeFile, XshaChomeFile, XtRString, sizeof (String) , 

XtOffsetOf (shaKernelAppData, sFileHome), XtRImmediate, 

(XtPointer ) DEFSHASTRAHOMEFILE }, 
{ XshaNappsFile, XshaCappsFile, XtRString, sizeof (String) , 

XtOffsetOf (shaKernelAppData, sFileApps), XtRImmediate, 

(XtPointer ) DEFSHASTRAAPPSFILE }, 
{ XshaNusersFile, XshaCusersFile, XtRString, sizeof ( St ring ) , 

XtOffsetOf (shaKernelAppData, sFileUsers), XtRImmediate, 

(XtPointer) DEFSHASTRAUSERSFILE }, 
{ XshaNhostsFile, XshaChostsFile, XtRString, sizeof ( St ring ) , 

XtOffsetOf (shaKernelAppData, sFileHosts), XtRImmediate, 

(XtPointer) DEFSHASTRAHOSTSFILE }, 
{ XshaNlocalStarter, XshaClocalStarter, XtRString, sizeof ( St ring ) , 

XtOffsetOf (shaKernelAppData, sLocStart), XtRImmediate, 

(XtPointer) DEFSHASTRASTARTLOCAL }, 
{ XshaNremoteStarter, XshaCremoteStarter, XtRString, sizeof (String) , 

XtOffsetOf (shaKernelAppData, sRemStart), XtRImmediate, 

( Xt Pointe r ) DEFSHASTRASTARTREMOTE } , 
{ XshaNpassword, XshaCpassword, XtRString, sizeof (String) , 

XtOffsetOf (shaKernelAppData, sPasswd), XtRImmediate, 

(XtPointer ) DEFSHASTRAPASSWD }, 



xrmResources [0] . def ault_add r = GetShast raBaseDir ( ) ; 

wgShast raTopLevel = XtAppInitialize(&shastraAppContext, "Shast raKernel" 
xrmOptions, XtNumber(xrmOptions) , 
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&argc, argv, f allback_resources, NULL, 0); 
shast raAddConverters ( ) ; 

XtVaGetApplicationResources (wgShast raTopLevel, 
(XtPointer)&kernelAppData, 
xrmResources, XtNumber(xrmResou rces ) , 
/*hardcoded non-overridable app resources vararg list*/ 
XshaNhelp, False, 
XshaNusePixmap, False, 
NULL) ; 

/*sanity checking of resources*/ 

/* 

shast raKernelSetupApplResDir( ) ; 

*/ 

getCmdLineArgs (argc, argv); 

kernelAppName = KERNEL_SERVICE_NAME; /* store application name */ 
if (kernelDispName == NULL) { 

kernelDispName = XDisplayName(NULL) ; 

} 

if (kernelPasswd == NULL) { 

kernelPasswd = SHASTRAPASSWORD; 

} 

mplexlnit (wgShast raTopLevel, shast raAppContext ) ; 
registerlnit ( ) ; 
kernFrontsInit ( ) ; 
sesmFrontsInit ( ) ; 

mplexRegisterErrHandler (closedChannelCleanUpHandler) ; 

#ifdef SHASTRA4SUN5 

if ( sysinf o ( SI_HOSTNAME, kernelHostName, MAXNAMELEN) == -1) { 
perrorC'sysinf o( )") ; 

#else 

if (gethostname(kernelHostName, MAXNAMELEN) != 0) { 
pe rror ("get host name ( )") ; 

#endif 

st rcpy( kernelHostName, "anonymous . cs.purdue.edu"); 

} 

if ((pHostEnt = gethostbyname(kernelHostName) ) == NULL) { 
pe rror ("get host byname ( )") ; 
return(0) ; 

} 

memcpy(&temp, &pHostEnt->h_add r_list [0] [0] , 4); 
kernellPAddr = ntohl(temp); 

/* 

* printfC'name : %s\n" , kernelHostName) ; 
*/ 

/* this used to read the host name from a file */ 
#ifdef ANCIENTUGLYCODE 

sName = resolveNameFrom2Bases ( pKernelAppData->sDirBase, 
pKernelAppData->sDirDef s, pKernelAppData->sFileHome) ; 

if ((fpHome = fopen(sName, " r" ) ) == NULL) { 
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perTor( "f open ( ) " ) ; 

f printf ( stderr, "main( )->couldn 't open %s ! Aborting .. \n" , 

sName) ; 
exit(-l) ; 

} 

fgets(kernelHeadHostName, MAXNAMELEN, fpHome); 
f close(f pHome) ; 
#endif 

nname = (char *)MasterKernelName ( kernelHostName) ; 

if (nname) 

{ 

st rcpy ( kerne IHead Ho stName, nname) ; 

} 

else 
{ 

strcpy(kernelHeadHostName, kernelHostName) ; 

} 

/*kernelHeadHostName [strlen(kernelHeadHostName) - 1] = '\0';*/ 
printf ("name : %s\n", kernelHeadHostName) ; 
f ForcedXMainKernel = 0; 

if (! strcmp( kernelHostName, kernelHeadHostName)) 
{ 

/* head?? */ 
fMainKernel = 1; 

} 

else 
{ 

fMainKernel = 0; 

} 

auid = getuid ( ) ; 
apass = getpwuid(auid) ; 
strcpy(kernelUserName,apass->pw_name) ; /* store user name */ 

serverCmdData . pCmdTab = serverCommandTab; 
serverCmdData . nCmds = serverNCmds; 
serverCmdData . pCmdTabln = NULL; 
serverCmdData . nCmdsIn = 0; 

if ( (shastraServerStatus = 

cmOpenServerSocket ( SHASTRA_SERVICE_NAME, 0, &serverCmdData, 
&shastraServiceSocket, NULL)) == -1) { 
/* OpenServerSocket registers the handler */ 

f printf ( stderr, "main( )->Server Start-up error!\n Quitting ! \n" ) ; 
exit(-l) ; 

} 

soLinger . l_onof f = 0; 

soLinger . l_linger = 5; /* seconds */ 

setsockopt(shastraServiceSocket, S0L_S0CKET, S0_LINGER, 
&so Linger, sizeof ( st ruct linger) ) ; 

uiCreate(wgShastraTopLevel, shast raAppContext ) ; 

/* 

pMyKernelSId = getMyKernelShast raid ( ) ; 
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pMyKernelAD = getMyKernelAppData ( ) ; 



XFlush(XtDisplay(wgShastraTopl_evel) ) ; 

/* 

iXAppFileDes = ConnectionNumber(XtDisplay(wgShastraTopl_evel) ) ; 

if (mplexRegisterChanneK iXAppFileDes, shastraHandleXEvent, 
NULL, NULL) == -1) { 
f printf ( stderr, "main( )->Couldn 1 t register X Handler ! \n" ) ; 

} 

*/ 

shastraPort = shast raServerStatus ; 

/* connect to main kernel */ 
if ( IfMainKernel) 

{ /* only non-heads */ 

kernelPortNum = cmClientConnect2Server( kernelHeadHostName, 

SHASTRA_SERVICE_NAME, 0, &mainKernClntSocket ) ; 
if (kernelPortNum == -1) { 
perrorC'cmClient Connect 2Server( ) " ) ; 
} 

if ((kernelPortNum == -1) && (errno == ECONNREFUSED) ) 
{ 

/* problem., maybe no kernel */ 

f printf ( stderr, "main( )->couldn 1 t register with master kernel!\n"); 

f printf ( stderr, "main( )->becoming a master kernel!\n"); 

fMainKernel = 1; 

f ForcedXMainKernel = 1; 

/* save name in file */ 

sName = resolveNameFrom2Bases(pKernelAppData->sDirBase, 

pKernelAppData->sDirDef s, pKernelAppData->sFileHome) ; 
if ((fpHome = fopen(sName, "w")) == NULL) 
{ 

perror("fopen( )" ) ; 

f printf ( stderr, "main( )->couldn 't open %s ! Aborting .. \n" , 

sName) ; 
exit(-l) ; 

} 

fprintf (fpHome, "%s\n", kernelHostName) ; 
f close(f pHome) ; 

st rcpy( kernelHeadHostName, kernelHostName) ; 
/* 

* should we try a loop-start main kernel here as 

* well? 
*/ 

} 

else 
{ 

kernelCmdData . pCmdTab = kernelCmdTab; 
kernelCmdData . nCmds = kernelNCmds; 
kernelCmdData. pCmdTabln = kernellnCmdTab; 
kernelCmdData. nCmdsIn = kernellnNCmds ; 
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pHostMainKern->f dSocket = mainKernClntSocket ; 
pHostMainKern->sendl_ist = listMakeNew( ) ; 
pHostMainKern->recvl_ist = listMakeNew( ) ; 
pHostMainKern->f Status = shaWait2Send ; 

/* register handler */ 
if (mplexRegisterChanneK pHostMainKern->f dSocket, 

shaClientHandler, 
&kernelCmdData, NULL) == -1) 

{ 

f printf ( stderr, 

"main( )->Couldn 1 t Register Client Handler! !\n" 
); 

pHostMainKern->f Status = shaError; 
return(0) ; 

} 

mplexSetHostData(pHostMainKern->fdSocket, pHostMainKern ) ; 

getRegisterlnf o(&kernelShast raid) ; 

/* after connecting , setting up handler */ 

setShaKernldOprn(mainKernClntSocket) ; /* register ID with 
* MainKernel */ 

} 

} 

/* 

* this needs to follow the IfMainKernel part, as a kernel may need 

* to become a main kernel if the main one isn't up already 
*/ 

if (fMainKernel) 
{ 

/* put shastrald in my own table */ 

SetupKernelNameSe rver( shast raAppContext, kernelHostName) ; 
kernelPortNum = shastraServerStatus; /* from 

* cmopenServerSocket ( ) */ 
getRegisterlnf o(&kernelShast raid ) ; 

copyld (&kernelShast raid, &localShaIdIn [shastraServiceSocket] ) ; 
shaKernFlags [shastraServiceSocket] = SHAKERNEL; 
updateShaKernlds ( ) ; 
if ( rgsbShastraKern != NULL) { 

strListDestroy( rgsbShastraKern) ; 

} 

rgsbShastraKern = pSIds2StrTab(&shastraKernIds, PSIDNMHOST) ; 
chooseOneChangeList (pcoShast raKern, rgsbShastraKern, 
coNoInitialHighlight) ; 

} 

/* identify front index */ 

iKernelFrontlndex = locateKernFronts (&kernelShast raid ) ; 
if (iKernelFrontlndex != -1) { 

f printf ( stderr, "main( )->locateKernFronts( ) already has index %d!\ 
n" , 

iKernelFrontlndex) ; 

} else { 

iKernelFrontlndex = occupyKrFrFreeSlot (&kernelShast raid ) ; 
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} 

pShast raFrontlds = getKernFrontSIds (&kernelShast raid ) ; 
/* initially empty fronts */ 
pShastraFrontIds->shastraIds_len = 0; 
pShast raFrontIds->shast ralds_val = 

( shastraId_P *) malloc (mplexGetMaxChannels ( ) * sizeof ( shast raId_P) ) 



if ( rgsbShastraFront != NULL) { 

strListDestroy( rgsbShastraFront) ; 

} 

rgsbShastraFront = pSIds2StrTab(pShastraFrontIds, PSIDNMHOST | 
PSIDNMAPPL) ; 

chooseOneChangeList (pcoSha st ra Front, rgsbShastraFront, 
coNoInitialHighlight ) ; 

if ( rgsbShastraSesMgr != NULL) { 

strListDestroy( rgsbShastraSesMgr) ; 

} 

rgsbShastraSesMgr = pSIds2StrTab(&shastraSesmIds, PSIDNMHOST | 
PSIDNMAPPL) ; 

chooseOneChangeList (pcoSha st raSesMgr, rgsbShastraSesMgr, 
coNoInitialHighlight) ; 

shastraFlush( ) ; 

mplexSetTimeout(7200000L) ; /* 2hrs */ 

mplexMain(shastraFlush) ; 
return(0) ; 

} 

void 

uiCreate(wgParent, xac) 

Widget wgParent; 
XtAppContext xac; 

{ 

Widget wgMainCmdShell; 
pcbArgPopup->operation = NULL; 

strcpy(pcbArgPopup->msg, "Callback Arg Uninitialized\n" ) ; 

/* Do the one time initialization of the choose one object */ 
chooseOnelnit (xac) ; 

/* Create the three shell widgets and all of their child widgets */ 
wgMainCmdShell = createMainCmdShell(wgParent) ; 
wgConf irmsShell = createConf irmsShell(wgParent) ; 

/* Pop up the three shell widgets */ 
XtPopup(wgMainCmdShell, XtGrabNone) ; 

} 
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* Function 
*/ 

int 

shast raHandleXEvent (xDescr, dummyArg ) 
int xDescr; 
char *dummyArg; 

{ 

XEvent xev, xevNext; 

f printf (stderr, "Handle X Event!\n"); 
while (XtAppPending(shastraAppContext) ) { 
XtAppNextEvent(shastraAppContext, &xev) ; 
if (xev. type == MotionNotif y) { 

while (XtAppPending(shastraAppContext) ) { 

XtAppPeekEvent(shastraAppContext, &xevNext) ; 
if (xevNext . type != MotionNotif y) { 
break; 

} 

if (xevNext .xmotion. window != xev. xmotion. window) { 
break; 

} 

XtAppNextEvent(shastraAppContext, &xev) ; 

} 

/* compress motion notify events to last one */ 

} 

XtDispatchEvent (&xev) ; 

} 

return(0) ; 

} 

/* 

* Function 
*/ 

int 

shastraFlush( ) 
{ 

XFlush(XtDisplay(wgShastraTopLevel) ) ; 
return(0) ; 

} 

void 

getRegisterlnfo(pSId) 

shastrald *pSId; 

{ 

double load; 

extern void getl_oadAvg(Protl(double *)); 
memset(pSId, 0, sizeof ( shast raid *)); 



pSId->HPAddr = kernellPAdd r; 

printf("%lu (%lx) — %s\n", pSId->HPAdd r, pSId->HPAdd r, 
ipaddr2str(pSId->HPAddr) ) ; 
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pSId->lSIDTag = kernellPAdd r; /* for kernels IPAddr is their tag */ 

getl_oadAvg(&load) ; 
printfC'load is %f\n", load); 
pSId->dLoadAvg = load; 

pSId->nmHost = st rdup( kernelHostName) ; 
pSId->nmDisplay = strdup(kernelDispName) ; 
pSId->nmApplicn = strdup(kernelAppName) ; 
pSId->nmUser = st rdup( kernelUserName) ; 
pSId->webname = strdup( kernelUserName) ; 
pSId->nmPasswd = st rdup ( kernelPasswd ) ; 

pSId->iPort = kernelPortNum; 

pSId->iProcId = getpidO; 

if (debug) { 

outputId(stdout, pSId); 



/* 

* Function — 
*/ 
void 

showInfo( s) 

char *s; 

{ 

static XmTextPosition currentPosn; 
outputTextToWidget ( s, wgStatusText, &currentPosn) ; 
/* 

* f printf ( stdout, "%s", s); 

*/ 



} 



} 



} 



void 

cmdLineUsage(argv) 
char 

{ 



**argv; 



fprintf (stderr, 
fprintf (stderr, 
fprintf (stderr, 
fprintf (stderr, 
fprintf ( stderr, 
fprintf ( stderr, 



usage: %s [options ] \n" , argv[0]); 



where options are:\n"); 

-display <display name>\n"); 
-help\n" ) ; 
-nogui\n" ) ; 

-passwd <password>\n" ) ; 



} 



void 



getCmdl_ineArgs(argc, argv) 
int argc; 
char **argv; 
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{ 

int i; 

for (i = 1; i < argc; i++) { 

if ( ! strcmpC'-display", argvfi])) { 
if (++i >= argc) 

cmdLineUsage(argv) ; 
kernelDispName = argvfi]; 
continue; 

} 

if ( !strcmp("-help", argvfi])) { 
cmdLineUsage(argv) ; 

} 

if ( ! strcmp("-nogui", argvfi])) { 
kernelFNoGUI = 1; 
continue; 

} 

if ( ! strcmpC'-passwd", argvfi])) { 
if (++i >= argc) 

cmdLineUsage(argv) ; 
kernelPasswd = argvfi]; 
continue; 

} 

cmdLineUsage(argv) ; 

} 

} 

/*For static linking*/ 

#ifdef SHASTATIC 

int dlopenO { return(0);} 

int dlcloseO {return(0); } 

int dlsymO {return(0); } 

#endif 

static char *GetShast raBaseDir ( ) 
{ 

char *dname; 

if (dname = getenv ( "SHASTRADIR" ) ) 
{ 

return (dname) ; 

} 

else 
{ 

dname = strdup(DEFSHASTRABASEDIR) ; 

} 

return(dname) ; 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <sys/errno. h> 

#include <shast ra/uitools/chooseOne. h> 
#include <shast ra/uitools/st rList Utilities . h> 
#include <shast ra/uitools/callbackArg . h> 

#include <shast ra/network/ server. h> 
#include <shast ra/network/mplex. h> 
#in elude <shast ra/network/hostMg r . h> 

#in elude <shast ra/datacomm/shast raldH. h> 
#in elude <shast ra/datacomm/shast raldTagH. h> 
#in elude <shast ra/datacomm/shast raDataH . h> 

#include <shast ra/shautils/shautils . h> 
#include <shast ra/ s ha utils/ kernel Fronts . h> 
#include <shast ra/ s ha ut ils/ sesMg r Front s . h> 

#include <shast ra/kernel/kernel_server. h> 
#include <shast ra/ kernel/ kernel. h> 
#in elude <shast ra/kernel/kernelMainCB. h> 
#in elude <shast ra/kernel/kernel_client . h> 

extern int debug; 

#define checkConn() \ 

if (pHostMainKern->fStatus == shaError) { \ 
fprintf ( stderr, "Connection to shastra is bad!\n"); \ 
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} 

#define sendReqString(s,arg) \ 

if (hostSendQueuedRequest(pHostMainKern, s, arg) == -1){ \ 
pHostMainKern->f Status = shaError; 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; 
fprintf ( stderr, "Error in Sending Operation Request\n"); 

} 

#define sendDataSt ring ( s ) \ 

if (cmSendString(pHostMainKern->fdSocket, s) == -1){ \ 
pHostMainKern->f Status = shaError; 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; 
fprintf ( stderr, "Error in Sending Operation Data\n"); 

} 



#define Shast raldln ( f iledesc, pShald) \ 

if (shastraIdIn(pHostMainKern->fdSocket, pShald) == -1){ \ 
pHostMainKern->f Status = shaError; 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; 
fprintf ( stderr, "Error Receiving SID from Main\n"); \ 

} 

#define Shast raldOut ( f iledesc, pShald) \ 

if (shastraIdOut(pHostMainKern->fdSocket, pShald) == -1){ \ 
pHostMainKern->f Status = shaError; 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; 
fprintf ( stderr, "Error Sending SID to Main\n"); \ 

} 

#define Shast raldsln ( f iledesc, pShalds) \ 

if (shastraIdsIn(pHostMainKern->fdSocket, pShalds) == -1){ \ 
pHostMainKern->f Status = shaError; 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; 
fprintf ( stderr, "Error Receiving SIDs from Main\n"); \ 

} 

#define Shast raldsOut ( f iledesc, pShalds) \ 

if (shastraIdsOut(pHostMainKern->fdSocket, pShalds) == -1){ \ 
pHostMainKern->f Status = shaError; 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; 
fprintf ( stderr, "Error Sending SIDs to Main\n"); \ 

} 

#define Shast raldTagln ( f iledesc, pShaldTag) \ 

if (shastraIdTagIn(pHostMainKern->fdSocket, pShaldTag) == -1){ 
pHostMainKern->f Status = shaError; 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; 
fprintf ( stderr, "Error Receiving SIDTag from Main\n"); \ 

} 

#define Shast raldTagOut ( f iledesc, pShaldTag) \ 
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if (shastraIdTagOut(pHostMainKern->fdSocket, pShaldTag) == -1){ \ 

pHostMainKern->f Status = shaError; \ 
closedChannelCleanUpHandler(pHostMainKern->fdSocket) ; \ 
f printf ( stderr, "Error Sending SIDTag to Main\n"); \ 

} 

#define Shast raldTagsIn ( f iledesc, pShaldTags) \ 

if (shastraIdTagsIn(pHostMainKern->fdSocket, pShaldTags) == -1){ \ 

pHostMainKern->f Status = shaError; \ 
closedChannelCleanUpHandler(pHostMainKern->f dSocket) ; \ 
f printf ( stderr, "Error Receiving SIDTags from Main\n"); \ 
return(0); \ 

} 

#define Shast raldTagsOut ( f iledesc, pShaldTags) \ 

if (shastraIdTagsOut(pHostMainKern->fdSocket, pShaldTags) == -1){ \ 
pHostMainKern->f Status = shaError; \ 
closedChannelCleanUpHandler(pHostMainKern->f dSocket) ; \ 
f printf ( stderr, "Error Sending SIDTags to Main\n"); \ 

} 

#define Shast raULongln ( f iledesc, pULong) \ 

if (shaULongIn(pHostMainKern->fdSocket, pULong) == -1){ \ 
pHostMainKern->f Status = shaError; 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; 
\ 

f printf ( stderr, "Error Receiving pULong from Main\n"); \ 

} 

#define Shast raULongOut ( f iledesc, pULong) \ 

if (shaULongOut(pHostMainKern->fdSocket, pULong) == -1){ \ 
pHostMainKern->f Status = shaError; 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; 
\ 

f printf ( stderr, "Error Sending pULong to Main\n"); \ 

} 



/* 

* Function 
*/ 
int 

startSystemExportOprn( pSId) 
shastrald *pSId; 

{ 

checkConn( ) ; 

s end ReqSt ring ( REQ_START_SYSTEM, NULL) ; 
if (debug) { 

outputId(stderr, pSId); 

} 
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ShastraIdOut(pHostMainKern->fdSocket, pSId) ; 
cm Flush ( pHostMainKern->f d Socket ) ; 
return(0) ; 

} 



/* 

* Function 
*/ 

int 

startSystemOprn ( iObj Index) 

int iObjlndex; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_START_SYSTEM, NULL) ; 
cmFlush(pHostMainKern->f dSocket ) ; 
return(0) ; 

} 

/* 

* Function 
*/ 

void 

end Sy s t emOp rn ( iObj Index) 

int iObjlndex; 

{ 

shastralds *pSIds; 
shastrald *pSId; 

pSIds = (shastralds *) pcbArgPopup->oprnAltArg ; 
pSId = pSIds->shastraIds_val [iObjlndex] ; 
if (debug) { 

outputId(stdout, pSId); 

} 

if (strcmp(pcbArgPopup->argBuffer, pSId->nmPasswd ) ) { 
/* passwd mismatch */ 

sprintf ( sbOutMsgBuf , "Kill( )->Password Incorrect — Aborted\n"); 

showlnf o ( sbOutMsgBuf ) ; 

return; 

} 

if (pSId->lIPAddr != kernelShast raid . lIPAdd r) { /* not local front */ 
if (fMainKernel) { 

int outFd; /* non local sesm, send kill 

* message */ 

outFd = shaKernId2Fd(pSId) ; /* get fd of kern for 

* this front */ 
if (outFd == -1) { 

sprintf (sbOutMsgBuf , "Kill( )->Unknown Kernel — Aborted\n") 

showlnf o( sbOutMsgBuf ) ; 
return ; 

} 
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putShaEndSysHandler(outFd, pSId) ; 
} else { 

checkConn ( ) ; 

sendReqSt ring ( REQ_END_SYSTEM, NULL) ; 
ShastraIdOut(pHostMainKern->fdSocket, pSId) ; 

} 

} else { 

int outFd; /* local sesm, kill */ 

outFd = shaFrontId2Fd(pSId) ; 
if (outFd == -1) { 

sprintf ( sbOutMsgBuf , "Kill( )->Unknown System — Aborted\n"); 

showlnf o( sbOutMsgBuf ) ; 

return; 

} 

putShaTerminateHandler(outFd) ; 

} 

cmFlush(pHostMainKern->f dSocket ) ; 
return; 



} 



/* 

* Function 
*/ 
void 

end Ke rnelOp rn ( iObj Index) 

int iObjlndex; 

{ 

shastrald *pSId; 

if (iObjlndex < 0) { 
return; 

} 

pSId = shastraKernIds.shastraIds_val[iObjIndex] ; 
if (debug) { 

outputld ( stdout, pSId); 

} 

if (strcmp(pcbArgPopup->argBuffer, pSId->nmPasswd ) ) { 
/* passwd mismatch */ 

sprintf ( sbOutMsgBuf , "KillKern ( ) ->Password Incorrect — Aborted\n") 
showInfo(sbOutMsgBuf ) ; 

} 

if (pSId->HPAddr != kernelShast raid . UPAdd r) { /* not me */ 
if (fMainKernel) { 

int outFd; /* non local sesm, send kill 

* message */ 

outFd = shaKernId2Fd(pSId) ; /* get fd of kern for 

* this sesMgr */ 
if (outFd == -1) { 

sprintf ( sbOutMsgBuf , "KillKern ( )->Unknown Kernel — Aborted 
\n"); 

showlnf o( sbOutMsgBuf ) ; 
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return; 

} 

putShaTerminateHandler(outFd) ; 
} else { 

checkConn ( ) ; 

sendReqSt ring ( REQ_END_SYSTEM, NULL) ; 
ShastraIdOut(pHostMainKern->fdSocket, pSId) ; 

} 

} else { 

quitOprn(0) ; 

} 

cm Flush ( pHo s tMa in Kern->fd Socket ) ; 
return; 

} 

/* 

* Function 
*/ 
void 

end SesMgrOprn(iObj Index) 

int iObjlndex; 

{ 

shastrald *pSId; 

if (iObjlndex < 0) { 
return; 

} 

pSId = shastraSesmIds.shastraIds_val[iObjIndex] ; 
if (debug) { 

outputId(stdout, pSId); 

} 

if (strcmp(pcbArgPopup->argBuffer, pSId->nmPasswd ) ) { 
/* passwd mismatch */ 

sprintf ( sbOutMsgBuf , "KillSesm( )->Password Incorrect — Aborted\n") 

showlnf o ( sbOutMsgBuf ) ; 
return; 

} 

if (pSId->HPAddr != kernelShast raid . UPAdd r) { /* not local sesm */ 
if (fMainKernel) { 

int outFd; /* non local sesm, send kill 

* message */ 

outFd = shaKernId2Fd(pSId) ; /* get fd of kern for 

* this sesMgr */ 
if (outFd == -1) { 

sprintf ( sbOutMsgBuf , "KillSesm( )->Unknown Kernel — Aborted 
\n"); 

showlnf o( sbOutMsgBuf ) ; 
return ; 

} 

putShaEndSysHandler(outFd, pSId) ; 
} else { 

checkConn( ) ; 
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sendReqSt ring ( REQ_END_SYSTEM, NULL) ; 
ShastraIdOut(pHostMainKern->fdSocket, pSId) ; 

} 

} else { 

int outFd; /* local sesm, kill */ 

outFd = shaSesmId2Fd(pSId) ; 
if (outFd == -1) { 

sprintf (sbOutMsgBuf , "KillSesm( )->Unknown SesMgr — Aborted\n") 

showlnf o( sbOutMsgBuf ) ; 
return; 

} 

putShaTerminateHandler(outFd) ; 

} 

cm Flush ( pHo s tMa in Kern->fd Socket ) ; 
return; 

} 

/* 

* Function 
*/ 

int 

endSystemExportOprn(pSId) 
shastrald *pSId; 

{ 

if (debug) { 

outputld ( stderr, pSId); 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_END_SYSTEM, NULL) ; 
ShastraIdOut(pHostMainKern->fdSocket, pSId) ; 
cmFlush(pHostMainKern->f dSocket ) ; 
return(0) ; 

} 

/* 

* Function 
*/ 

int 

con nect Sy s t emOp rn ( iObj Index) 
int iObjlndex; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_CONNECT_SYSTEM, NULL) ; 
cmFlush(pHostMainKern->f dSocket ) ; 
return(0) ; 

} 

/* 

* Function 
*/ 

int 

getShast rald0prn( iObj Index) 
int iObjlndex; 

{ 
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checkConn( ) ; 

sendReqSt ring ( REQ_GET_SHASTRAID, NULL) ; 
cm Flush ( pHostMainKern->fd Socket ) ; 
return(0) ; 



/* 

* Function 
*/ 
int 

setShastraldOprn(i) 
int i; 

{ 



checkConn( ) ; 

sendReqSt ring ( REQ_SET_SHASTRAID, NULL) ; 
getRegisterlnf o(&kernelShast raid) ; 

ShastraIdOut(pHostMainKern->fdSocket, &kernelShastraId) ; 
printf ("%s\n", pSId2Str(&kernelShastraId, PSIDSHOWALL) ) ; 
cmFlush(pHostMainKern->f dSocket ) ; 
return(0) ; 



/* 

* Function 
*/ 
int 

getShaKernldOprnUObj Index) 
int iObjlndex; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_GET_SHAKERNID, NULL) ; 
cmFlush(pHostMainKern->f dSocket ) ; 
return(0) ; 

} 



/* 

* Function 
*/ 
int 

setShaKernldOprn(i) 
int i; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_SET_SHAKERNID, NULL) ; 
ShastraIdOut(pHostMainKern->fdSocket, &kernelShastraId) ; 
printf ("%s\n", pSId2Str(&kernelShastraId, PSIDSHOWALL)); 
cm Flush ( pHostMainKern->f dSocket ) ; 
return(0) ; 
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/* 

* Function 
*/ 
void 

getShaKernFrIdOprn( iObj Index) 
int iObjlndex; 

{ 

shastrald *pSId; 

if (fMainKernel) { 
return; 

} 

pSId = shastraKernIds.shastraIds_val[iObjIndex] ; 
if (pSId->lIPAddr == kernellPAddr) { 

/* no need to send request for my own data */ 

return; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_GET_SHAKERNFRID, (char*) NULL); 
ShastraIdOut(pHostMainKern->fdSocket, pSId) ; 
printf ("%s\n", pSId2Str(pSId, PSIDSHOWALL) ) ; 
cm Flush ( pHo s tMa in Kern->fd Socket ) ; 
return; 

} 



/* 

* Function 
*/ 
int 

setShaKernFrldOprn(i) 
int i; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_SET_SHAKERNFRID, NULL) ; 
ShastraIdOut(pHostMainKern->fdSocket, &kernelShastraId) ; 
ShastraIdsOut(pHostMainKern->fdSocket, pShast raFrontlds ) ; 
cm Flush ( pHo s tMa in Kern->fd Socket ) ; 
return(0) ; 



/* 

* Function 
*/ 
int 

getShaSesmIdOprn( iObj Index) 
int iObjlndex; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_GET_SHASESMID, NULL) ; 
cmFlush(pHostMainKern->f dSocket ) ; 
return(0) ; 
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* Function 
*/ 
int 

set ShaSesmld Export Op rn(pSId ) 
shastrald *pSId; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_SET_SHASESMID, NULL) ; 
if (debug) { 

outputld ( stderr, pSId); 

} 

ShastraIdOut(pHostMainKern->fdSocket, pSId) ; 
cmFlush(pHostMainKern->f dSocket ) ; 
return(0) ; 

} 



/* 

* Function 
*/ 
void 

getShaSesmFrIdOprn( iObj Index) 
int iObjlndex; 

{ 

shastraldTag *pSIdTag; 

if (fMainKernel) { 
return; 

} 

pSIdTag = & shast raSesmlds . shast ralds_val [iObj Index] ->lSIDTag ; 
checkConn( ) ; 

sendReqSt ring ( REQ_GET_SHASESMFRID, (char*) NULL); 
ShastraIdTagOut(pHostMainKern->fdSocket, pSIdTag) ; 
printf ("%s\n", pSIdTag2Str(pSIdTag, 0)); 
cm Flush ( pHo s tMa in Kern->fd Socket ) ; 
return; 



* Function 
*/ 
int 

setShaSesmFrIdExportOprn(pSIdTag, pSIdTags, pPermTags) 
shastraldTag *pSIdTag; 
shast raldTags *pSIdTags; 
shast raldTags *pPermTags ; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_SET_SHASESMFRID, NULL) ; 
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if (debug) { 

outputldTag ( stderr, pSIdTag); 
outputldTags ( stderr, pSIdTags); 
outputldTags ( stderr, pPermTags); 

} 

ShastraIdTagOut(pHostMainKern->fdSocket, pSIdTag) ; 
Shast raldTagsOut ( pHostMainKern->f dSocket, pSIdTags) ; 
Shast raldTagsOut ( pHostMainKern->f dSocket, pPermTags) ; 
cmFlush(pHostMainKern->f dSocket ) ; 
return(0) ; 



* Function 
*/ 
int 

deleteSesMgrExportOprn(pSIdTag) 
shast raldTag *pSIdTag; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_DELETE_SESMGR, NULL) ; 
ShastraIdTagOut(pHostMainKern->fdSocket, pSIdTag) ; 
cm Flush ( pHo s tMa in Kern->f dSocket ) ; 
return(0) ; 

} 



*/ 
int 
col 



} 

/* 



UnviteJoinOprn(pSesmSIdTag, pFrontSIdTag, pLeaderSIdTag, pFrontPermTag) 
shastraldTag *pSesmSIdTag ; 
shastraldTag *pFrontSIdTag ; 
shastraldTag *pLeaderSIdTag ; 
shastraldTag *pFrontPermTag ; 

checkConn( ) ; 

sendReqString(REQ_COLL_INVITEJOIN, NULL) ; 
ShastraIdTagOut(pHostMainKern->fdSocket, pSesmSIdTag ) ; 
ShastraIdTagOut(pHostMainKern->fdSocket, pFrontSIdTag) ; 
ShastraIdTagOut(pHostMainKern->fdSocket, pLeaderSIdTag) ; 
ShastraIdTagOut(pHostMainKern->fdSocket, pFrontPermTag ) ; 
cmFlush(pHostMainKern->f dSocket ) ; 
return(0) ; 



*/ 
int 
col 



lAskJoinOprn (pSesmSIdTag, pFrontSIdTag) 
shastraldTag *pSesmSIdTag ; 
shastraldTag *pFrontSIdTag ; 
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checkConn( ) ; 

sendReqString(REQ_COLL_ASKJOIN, NULL) ; 
ShastraIdTagOut(pHostMainKern->fdSocket, pSesmSIdTag ) ; 
ShastraIdTagOut(pHostMainKern->fdSocket, pFrontSIdTag) ; 
cmFlush(pHostMainKern->f dSocket ) ; 
return(0) ; 



* Function 
*/ 
int 

collTellJoinOprn(pSesmSIdTag, pFrontSIdTag, pFrontPermTag ) 
shast raldTag *pSesmSIdTag ; 
shast raldTag *pFrontSIdTag ; 
shast raldTag *pFrontPermTag ; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_COLL_TELLJOIN, NULL) ; 
ShastraIdTagOut(pHostMainKern->fdSocket, pSesmSIdTag ) ; 
ShastraIdTagOut(pHostMainKern->fdSocket, pFrontSIdTag) ; 
ShastraIdTagOut(pHostMainKern->fdSocket, pFrontPermTag ) ; 
cm Flush ( pHo s tMa in Kern->fd Socket ) ; 
return(0) ; 

} 



/* 

* Function 
*/ 

int 

helpOprn( iObj Index) 

int iObjlndex; 

{ 

checkConn( ) ; 

sendReqString(REQ_HELP, NULL); 
cm Flush ( pHo s tMa in Kern->fd Socket ) ; 
return(0) ; 

} 

/* 

* Function 
*/ 

void 

quitOprn( iObj Index) 

int iObjlndex; 

{ 

if ( ! fMainKernel && ( pHostMainKern->f Status != shaError)) { 
sendReqString(REQ_QUIT, NULL); 
cm Flush ( pHostMainKern->fd Socket ) ; 

} 

mplexUnRegisterChannel(pHostMainKern->f dSocket ) ; 
XtDest royApplicationContext ( shast raAppCon text ) ; 
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exit (0) ; 

} 



/* 

* Function 
*/ 
int 

selectKernOprn( iObj Index) 

int iObjlndex; 

{ 

fprintf (stderr, "selectKernOprn( ) — selected %d\n", iObjlndex); 
return(0) ; 

} 



/* 

* Function 
*/ 

int 

startSystemRespHandler(fd) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_START_SYSTEM) ; 
showlnf o( sbOutMsgBuf) ; 
return(0) ; 

} 

/* 

* Function 
*/ 

int 

endSystemRespHandler(f d) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_END_SYSTEM) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 
*/ 

int 

connect SystemRespHandler(fd) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_CONNECT_SYSTEM) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 
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* Function 
*/ 
int 

getShastraldRespHandler(fd) 
int fd; 

{ 

Shastraldsln(fd, &shast raSysIds ) ; 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_GET_SHASTRAID) ; 
showlnf o( sbOutMsgBuf ) ; 
if (debug) { 

outputlds ( stderr, &shast raSysIds ) ; 

} 

if (rgsbShastraSys != NULL) { 

strListDestroy( rgsbShastraSys) ; 

} 

rgsbShastraSys = pSIds2StrTab(&shastraSysIds, PSIDSHOWALL) ; 
chooseOneChangeList (pcoShast raSys, rgsbShastraSys, 
coNoInitialHighlight) ; 
return(0) ; 



/* 

* Function 
*/ 

int 

setShastraldRespHandler(fd) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_SET_SHASTRAID) ; 
showlnf o( sbOutMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

getShaKernldRespHandler(fd) 
int fd; 

{ 

Shastraldsln(fd, &shast raKernlds ) ; 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_GET_SHAKERNID) ; 
showlnf o( sbOutMsgBuf ) ; 
if (debug) { 

outputlds ( stderr, &shast raKernlds ) ; 

} 

if ( rgsbShastraKern != NULL) { 

strListDestroy( rgsbShastraKern) ; 

} 

rgsbShastraKern = pSIds2StrTab(&shastraKernIds, PSIDNMHOST) ; 
chooseOneChangeList (pcoShast raKern, rgsbShastraKern, 
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coNoInitialHighlight ) ; 

adj ustKrFrMapSize( shast raKernlds . s hast raid s_len ) ; 
/* update map */ 
updateKrFrMap(&shastraKernIds) ; 
/* now MCast it to all fronts */ 
{ 

int *pfd; 
int nfd; 

getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putShaKernldHandler, NULL); 

} 

return(0) ; 



/* 

* Function 
*/ 
int 

setShaKernldRespHandler(fd) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_SET_SHAKERNID) ; 
showlnf o( sbOutMsgBuf ) ; 
return 0; 

} 



/* 

* Function 
*/ 
int 

getShaKernFrldRespHandler(fd) 
int fd; 

{ 

int krlndex; 
int mylndex; 
static shastrald inShald; 
static shastralds inShalds; 
shastralds *pSIds; 

mylndex = locateKernFronts (&kernelShast raid ) ; 

Shastraldln(fd, &inShaId); 

krlndex = locateKernFronts (&inShaId ) ; 

/* vaildity check */ 

if (krlndex == -1) { 

krlndex = occupyKrFrFreeSlot (&inShaId ) ; /* put him up */ 

} 

if (krlndex == mylndex) { 

Shastraldsln(fd, &inShaIds); 

pSIds = getKernFrontSIds(&inShaId) ; 
} else { 
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pSIds = getKernFrontSIds(&inShaId) ; 
Shastraldsln(fd, pSIds); 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_GET_SHAKERNFRID) ; 
showlnf o( sbOutMsgBuf ) ; 
if (debug) { 

outputlds ( stderr, pSIds); 

} 

/* now MCast it to all fronts */ 
{ 

int *pfd; 
int nfd; 

getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putShaKernFrldHandler, (char *) &inShaId); 

} 

return(0) ; 



/* 

* Function 
*/ 

int 

setShaKernFrldRespHandler(fd) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SET_SHAKERNFRID) ; 
showlnf o( sbOutMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

getShaSesmIdRespHandler(f d) 
int fd; 

{ 

Shastraldsln(fd, &shast raSesmlds ) ; 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_GET_SHASESMID) ; 
showlnf o( sbOutMsgBuf ) ; 
if (debug) { 

outputlds ( stderr, &shast raSesmlds ) ; 

} 

if (rgsbShastraSesMgr != NULL) { 

strListDestroy( rgsbShastraSesMgr) ; 

} 

rgsbShastraSesMgr = pSIds2StrTab(&shastraSesmIds, PSIDNMHOST) ; 
chooseOneChangeList (pcoShast raSesMg r, rgsbShast raSesMgr, 
coNoInitialHighlight ) ; 

ad j ustSmFrMapSize( shast raSesmlds . shast raid s_len ) ; 
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/* update map */ 
updateSmFrMap(&shastraSesmIds) ; 
/* now MCast it to all fronts */ 
{ 

int *pfd; 
int nfd; 

getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putShaSesmldHandler, NULL); 

} 

return(0) ; 

} 

/* 

* Function 
*/ 
int 

setShaSesmldRespHandler(fd) 
int fd; 

{ 

/* proxy., done for my sesMgrs */ 
/* no action need be taken */ 
return(0) ; 

} 



/* 

* Function 
*/ 
int 

getShaSesmFrIdRespHandler(f d) 
int fd; 

{ 

int smlndex; 
static shast raldTag inShaldTag; 
static shastraldTags inShaldTags ; 
shast raldTags *pPermTags; 
shastraldTags *pSIdTags; 

ShastraIdTagIn(fd, &inShaIdTag ) ; 
smlndex = locateSesmFronts (&inShaIdTag ) ; 
/* vaildity check */ 
if (smlndex == -1) { 

f printf ( stderr, "getShaSesmFrldRespHandler ( )->can 1 t locate sesMgr!\ 
n"); 

ShastraIdTagsIn(fd, &inShaIdTags ) ; 
ShastraIdTagsIn(fd, &inShaIdTags ) ; /* perms */ 
return -1; 

} 

pSIdTags = getSesmFrontSIdTags (&inShaIdTag ) ; 
ShastraIdTagsIn(fd, pSIdTags); 
pPermTags = getSesmFrontPermTags (&inShaIdTag ) ; 
ShastraIdTagsIn(fd, pPermTags); 
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sprintf (sbOutMsgBuf , "Done— %s\n", REQ_GET_SHASESMFRID) ; 
showlnf o( sbOutMsgBuf) ; 
if (debug) { 

outputldTags ( stderr, pSIdTags); 

outputldTags ( stderr, pPermTags ) ; 

} 

/* now MCast it to all fronts */ 
{ 

int *pfd; 
int nfd; 

getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putShaSesmFrldHandler, (char *) &inShaIdTag ) ; 

} 

return(0) ; 



/* 

* Function 
*/ 

int 

setShaSesmFrldRespHandler(fd) 
int fd; 

{ 

/* proxy., done for my sesMgrs */ 
/* no action need be taken */ 
return(0) ; 

} 

/* 

* Function 
*/ 

int 

helpRespHandler(fd) 

int fd; 

{ 

standardHelpRespHandler(fd) ; 

sprintf (sbOutMsgBuf, "Done — %s\n", REQ_HELP) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 
*/ 

int 

quit Res pHandler(fd) 

int fd; 

{ 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_QUIT) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 
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/* 

* Function 
*/ 

int 

deleteSesMgrRespHandler(fd) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_DELETE_SESMGR) ; 
showlnf o( sbOutMsgBuf) ; 
return(0) ; 

} 

/* 

* Function 
*/ 

int 

collTellJoinRespHandler(fd) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_TELLJOIN) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 



/* 

* Function 
*/ 

int 

collAskJoinRespHandler(fd) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_COLL_ASKJOIN ) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 
*/ 

int 

collInviteJoinRespHandler(f d) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_INVITEJOIN) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 
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*/ 

int 

colli nviteRespHandler( f d ) 
int fd; 

{ 

shast raldTag sesmSIdTag ; 
shast raldTag frontSIdTag; 
shast raldTag leaderSIdTag ; 
shast raldTag f rontPermTag; 

shastrald *pSId; 
int outFd; 

ShastraIdTagIn(fd, &sesmSIdTag ) ; 

Shast raldTagln ( fd , &f rontSIdTag) ; 

ShastraIdTagIn(fd, &leaderSIdTag ) ; 

ShastraIdTagIn(fd, &f rontPermTag) ; 

pSId = krFrSIdTag2SId(f rontSIdTag) ; 

outFd = shaFrontId2Fd(pSId) ; 
if (outFd == -1) { 

sprintf ( sbOutMsgBuf , "collInviteRespHandler ( )->Unknown Front 
Aborted\n" ) ; 

showlnfo ( sbOutMsgBuf ) ; 

return(0) ; 

} 

putCollInviteJoinHandler(outFd, &sesmSIdTag, &f rontSIdTag, 

&leaderSIdTag, &f rontPermTag) ; 
sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_INVITEJOIN) ; 
showInfo( sbOutMsgBuf ) ; 

return(0) ; 



/* 

* Function 
*/ 
int 

collAskJnRespHandler(fd) 
int fd; 

{ 

shastraldTag sesmSIdTag; 
shastraldTag frontSIdTag; 
shastrald *pSId; 
int outFd; 

ShastraIdTagIn(fd, &sesmSIdTag ) ; 
ShastraIdTagIn(fd, &f rontSIdTag) ; 

/*pSId = krFrSIdTag2SId(f rontSIdTag) ; 
outFd = shaFrontId2Fd(pSId) ; 

*/ 

pSId = mapSIdTag2SId(&sesmSIdTag) ; 
outFd = shaSesmId2Fd(pSId) ; 
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if (outFd == -1) { 

sprintf ( sbOutMsgBuf , "collAskJnRespHandler ( )->Unknown Front — 

Aborted\n" ) ; 
showInfo(sbOutMsgBuf ) ; 
return(0) ; 

} 

putCollAskJoinHandler(outFd, &sesmSIdTag, &f rontSIdTag) ; 
sprintf (sbOutMsgBuf , "Done (in)— %s\n", REQ_COLL_ASKJOIN) ; 
showInfo( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 
*/ 
int 

coUTeUJnRespHandler(fd) 

int fd; 

{ 

shastraldTag sesmSIdTag ; 

shastraldTag frontSIdTag; 

shastraldTag f rontPermTag; 

shastrald *pSId; 

int outFd; 

ShastraIdTagIn(fd, &sesmSIdTag ) ; 
ShastraIdTagIn(fd, &f rontSIdTag) ; 
ShastraIdTagIn(fd, &f rontPermTag) ; 

pSId = krFrSIdTag2SId(f rontSIdTag) ; 

outFd = shaFrontId2Fd(pSId) ; 
if (outFd == -1) { 

sprintf ( sbOutMsgBuf , "collTellJnRespHandler ( )->Unknown Front — 
Aborted\n" ) ; 

showlnfo ( sbOutMsgBuf ) ; 

return(0) ; 

} 

putCollTellJoinHandler(outFd, &sesmSIdTag, &f rontSIdTag, &f rontPermTag) 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_TELLJOIN) ; 
showInfo( sbOutMsgBuf ) ; 
return(0) ; 

} 



/* 

* Function 

*/ 

int collInviteMsgReq(pHostKr, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
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shast raldTag *pSmSIdTag ; 
shast raldTag *pToSIdTag; 
shast raldTag *pSIdTag; 
char *sbMsg; 

checkConn( ) ; 

sendReqSt ring ( REQ_COLL_INVITEMSG, NULL) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSmSIdTag ) ; 
ShastraIdTagOut(pHostKr->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKr->fdSocket) ; 
return(0) ; 



/* 

* Function 

*/ 

int collInviteMsgRespHandler(fd) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_INVITEMSG) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int collInviteMsglnHandler(fd) 
int fd; 

{ 

/* receive sesm idtag, display recvd message */ 

shastraldTag smSIdTag; 

shastraldTag toSIdTag; 

shastraldTag sldTag; 

char *sMsg; 

int outFd; 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
/*handle*/ 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
M collInviteMsgInHandler( )") ){ 
case route_DEFAULT: 

collInviteMsgReq ( pHostMainKern, &smSIdTag, &toSIdTag, 
&sIdTag, sMsg); 

break; 

case route_KERNEL: 
case route_FRONT: 

putCollInviteMsgHandler(outFd, &smSIdTag, &toSIdTag, 
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&sIdTag, sMsg); 

break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done (in) — %s\n", REQ_COLL_INVITEMSG) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int collInvRespMsgReq(pHostKr, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shastraldTag *pSmSIdTag ; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_COLL_INVRESPMSG, NULL) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSmSIdTag ) ; 
ShastraIdTagOut(pHostKr->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKr->fdSocket) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int collInvRespMsgRespHandler ( f d ) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_INVRESPMSG) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int collInvRespMsglnHandler(fd) 
int fd; 

{ 

/* receive sesm idtag, display recvd message */ 
shastraldTag smSIdTag; 
shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 
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int outFd; 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
/*handle*/ 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
M collInvRespMsgInHandler( )" ) ){ 
case route_DEFAULT: 

collInvRespMsgReq ( pHostMainKern, &smSIdTag, &toSIdTag, 
&sIdTag, sMsg); 

break; 

case route_KERNEL : 
case route_FRONT: 

putCollInvRespMsgHandler(outFd, &smSIdTag, &toSIdTag, 
&sIdTag, sMsg); 

break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done (in) — %s\n", REQ_COLL_INVRESPMSG) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int collInviteStatusReq(pHostKr, pSmSIdTag, pToSIdTag, pSIdTag, IStatus) 
hostData* pHostKr; 
shastraldTag *pSmSIdTag ; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
shaULong IStatus; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_COLL_INVITESTATUS, NULL) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSmSIdTag ) ; 
ShastraIdTagOut(pHostKr->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSIdTag) ; 
ShastraULongOut(pHostKr->fdSocket, &lStatus) ; 
cmFlush(pHostKr->fdSocket) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int colli nviteSt at u sRes pHand ler ( fd ) 
int fd; 

{ 
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sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_INVITESTATUS) ; 
showlnf o( sbOutMsgBuf) ; 
return(0) ; 



/* 

* Function 

*/ 

int colli nviteStatusInHandler(fd) 
int fd; 

{ 

/* receive sesm idtag, display recvd status */ 

shast raldTag smSIdTag; 

shast raldTag toSIdTag; 

shast raldTag sldTag; 

shaULong IStatus; 

int outFd; 

ShastraIdTagIn(fd, &smSIdTag ) ; 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
ShastraULongIn(fd, &lStatus); 
/*handle*/ 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
M collInviteStatusInHandler( )") ){ 
case route_DEFAULT: 

collInviteStatusReq(pHostMainKern, &smSIdTag, &toSIdTag, 
&sIdTag, IStatus); 

break; 

case route_KERNEL: 
case route_FRONT: 

putCollInviteStatusHandler(outFd, &smSIdTag, &toSIdTag, 
&sIdTag, IStatus); 

break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done (in) — %s\n", REQ_COLL_INVITESTATUS) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int collAskJoinMsgReq(pHostKr, pSmSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shastraldTag *pSmSIdTag ; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

checkConn( ) ; 
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sendReqSt ring ( REQ_COLL_ASKJOINMSG, NULL) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSmSIdTag ) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKr->fdSocket) ; 
return(0) ; 



/* 

* Function 

*/ 

int collAskJoinMsgRespHandler ( f d ) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_ASKJOINMSG) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int collAskJoinMsglnHandler(fd) 
int fd; 

{ 

/* receive sesm idtag, display recvd message */ 
shastraldTag smSIdTag; 
shastraldTag sldTag; 
char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveSt ring ( f d ) ; 
/*handle*/ 

switch( routeSesMg rSIdTagToFd (&smSIdTag, &outFd, 

M collAskJoinMsgInHandler( )") ){ 
case route_DEFAULT: 

collAskJoinMsgReq(pHostMainKern, &smSIdTag, &sIdTag, sMsg); 
break; 

case route_KERNEL: 
case route_FRONT: 

putCollAskJoinMsgHandler(outFd, &smSIdTag, &sIdTag, sMsg); 
break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done (in) — %s\n", REQ_COLL_ASKJOINMSG) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 
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/* 

* Function 

*/ 

int collAskJnRespMsgReq(pHostKr, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shast raldTag *pSmSIdTag ; 
shast raldTag *pToSIdTag; 
shast raldTag *pSIdTag; 
char *sbMsg; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_COLL_ASKJNRESPMSG, NULL) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSmSIdTag ) ; 
ShastraIdTagOut(pHostKr->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKr->fdSocket) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int collAskJnRespMsgRespHandler(f d) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_ASKJNRESPMSG) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int collAskJnRespMsglnHandler(fd) 
int fd; 

{ 

/* receive sesm idtag, display recvd message */ 

shastraldTag smSIdTag; 

shastraldTag toSIdTag; 

shastraldTag sldTag; 

char *sMsg; 

int outFd; 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveSt ring ( f d ) ; 
/*handle*/ 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
M collAskJnRespMsgInHandler( )") ){ 
case route_DEFAULT: 

collAskJnRespMsgReq(pHostMainKern, &smSIdTag, &toSIdTag, 
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&sIdTag, sMsg); 

break; 

case route_KERNEL: 
case route_FRONT: 

putCollAskJnRespMsgHandler(outFd, &smSIdTag, &toSIdTag, 
&sIdTag, sMsg); 

break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done (in) — %s\n", REQ_COLL_ASKJNRESPMSG) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int collAskJnStatusReq(pHostKr, pSmSIdTag, pToSIdTag, pSIdTag, IStatus) 
hostData* pHostKr; 
shastraldTag *pSmSIdTag ; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
shaULong IStatus; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_COLL_ASKJNSTATUS, NULL) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSmSIdTag ) ; 
ShastraIdTagOut(pHostKr->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSIdTag) ; 
ShastraULongOut(pHostKr->fdSocket, &lStatus) ; 
cmFlush(pHostKr->fdSocket) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int collAskJnStatusRespHandler(f d ) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_ASKJNSTATUS) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int coUAskJnStatusInHandler(fd) 
int fd; 

{ 
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/* receive sesm idtag, display recvd status */ 

shast raldTag smSIdTag; 

shast raldTag toSIdTag; 

shast raldTag sldTag; 

shaULong IStatus; 

int outFd; 



ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
ShastraULongIn(fd, &lStatus); 
/*handle*/ 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
M collAskJnStatusInHandler( )") ){ 
case route_DEFAULT: 

collAskJnStatusReq(pHostMainKern, &smSIdTag, &toSIdTag, 
&sIdTag, IStatus); 

break; 

case route_KERNEL: 
case route_FRONT: 

putCollAskJnStatusHandler(outFd, &smSIdTag, &toSIdTag, 
&sIdTag, IStatus); 

break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done (in) — %s\n", REQ_COLL_ASKJNSTATUS) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 

*/ 

int commMsgTextReq(pHostKr, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_COMM_MSGTEXT, NULL) ; 
ShastraIdTagOut(pHostKr->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKr->fdSocket) ; 
return(0) ; 

} 



/* 

* Function 

*/ 
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int commMsgTextRespHandler ( f d ) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_COMM_MSGTEXT) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgTextlnHandler ( f d ) 
int fd; 

{ 

/* receive sesm idtag, display recvd message */ 
shast raldTag toSIdTag; 
shast raldTag sldTag; 
char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveSt ring ( f d ) ; 
/*handle*/ 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 

M collMsgTextInHandler( )") ){ 
case route_DEFAULT: 

commMsgTextReq(pHostMainKern, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_KERNEL: 
case route_FRONT: 

putCommMsgTextHandler(outFd, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done (in) — %s\n", REQ_COMM_MSGTEXT) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgTextFileReq(pHostKr, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_COMM_MSGTEXTFILE, NULL) ; 
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ShastraIdTagOut(pHostKr->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKr->fdSocket) ; 
return(0) ; 



/* 

* Function 

*/ 

int commMsgTextFileRespHandler ( f d ) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COMM_MSGTEXTFILE) ; 
showlnf o( sbOutMsgBuf) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgTextFilelnHandler(fd) 
int fd; 

{ 

/* receive sesm idtag, display recvd message */ 
shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
/*handle*/ 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 

M collMsgTextFileInHandler( )") ){ 
case route_DEFAULT: 

commMsgTextFileReq ( pHostMainKern, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_KERNEL: 
case route_FRONT: 

putCommMsgTextFileHandler(outFd, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done (in) — %s\n", REQ_COMM_MSGTEXTFILE) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



/* 
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* Function 

*/ 

int commMsgAudioReq(pHostKr, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shast raldTag *pToSIdTag; 
shast raldTag *pSIdTag; 
char *sbMsg; 

{ 

checkConn( ) ; 

sendReqString(REQ_COMM_MSGAUDIO, NULL) ; 
ShastraIdTagOut(pHostKr->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKr->fdSocket) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgAudioRespHandler(fd) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_COMM_MSGAUDIO) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgAudioInHandler(f d) 
int fd; 

{ 

/* receive sesm idtag, display recvd message */ 
shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
/*handle*/ 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 

"collMsgAudioInHandlerO") ){ 
case route_DEFAULT: 

commMsgAudioReq(pHostMainKern, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_KERNEL: 
case route_FRONT: 

putCommMsgAudioHandler(outFd, &toSIdTag, &sIdTag, sMsg); 
break; 
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case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done (in) — %s\n", REQ_COMM_MSGAUDIO) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgAudioFileReq(pHostKr, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_COMM_MSGAUDIOFILE, NULL) ; 
ShastraIdTagOut(pHostKr->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKr->fdSocket) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgAudioFileRespHandler(f d) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COMM_MSGAUDIOFILE) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgAudioFileInHandler(f d) 
int fd; 

{ 

/* receive sesm idtag, display recvd message */ 
shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
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/*handle*/ 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 

M collMsgAudioFileInHandler( )") ){ 
case route_DEFAULT: 

commMsgAudioFileReq(pHostMainKern, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_KERNEL: 
case route_FRONT: 

putCommMsgAudioFileHandler(outFd, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done (in) — %s\n", REQ_COMM_MSGAUDIOFILE) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgVideoReq(pHostKr, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

checkConn( ) ; 

sendReqString(REQ_COMM_MSGVIDEO, NULL) ; 
ShastraIdTagOut(pHostKr->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKr->fdSocket) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgVideoRespHandler(fd) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_COMM_MSGVIDEO) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgVideoInHandler(f d) 
int fd; 
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{ 

/* receive sesm idtag, display recvd message */ 
shast raldTag toSIdTag; 
shast raldTag sldTag; 
char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveSt ring ( f d ) ; 
/*handle*/ 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 

"collMsgVideoInHandlerO") ){ 
case route_DEFAULT: 

commMsgVideoReq(pHostMainKern, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_KERNEL: 
case route_FRONT: 

putCommMsgVideoHandler(outFd, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done (in) — %s\n", REQ_COMM_MSGVIDEO) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgVideoFileReq(pHostKr, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_COMM_MSGVIDEOFILE, NULL) ; 
ShastraIdTagOut(pHostKr->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKr->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKr->fdSocket) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgVideoFileRespHandler ( f d ) 
int fd; 

{ 
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sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COMM_MSGVIDEOFILE) ; 
showlnf o( sbOutMsgBuf) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgVideoFileInHandler(f d) 
int fd; 

{ 

/* receive sesm idtag, display recvd message */ 
shast raldTag toSIdTag; 
shast raldTag sldTag; 
char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
/*handle*/ 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 

M collMsgVideoFileInHandler( )") ){ 
case route_DEFAULT: 

commMsgVideoFileReq(pHostMainKern, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_KERNEL: 
case route_FRONT: 

putCommMsgVideoFileHandler(outFd, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done (in) — %s\n", REQ_COMM_MSGVIDEOFILE) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <sys/errno. h> 
#include <sys/wait.h> 
#include <netdb.h> 
#include <stdlib.h> 
#ifdef SHASTRA4SUN5 
#include <unistd.h> 
char *strdup(char *) ; 
#endif 

#include <shast ra/shast ra . h> 

#include <shast ra/uitools/chooseOne. h> 
#include <shast ra/uitools/chooseMany . h> 
#in elude <shastra/uitools/callbackArg.h> 
#include <shast ra/uitools/st rList Utilities . h> 
#include <shast ra/ui/general. h> 

#include <shast ra/ kernel/ kernel. h> 
#include <shast ra/kernel/kernelMainCB. h> 
#include <shast ra/kernel/kernel_server. h> 
#in elude <shast ra/kernel/kernel_client . h> 
#in elude <shast ra/kernel/kernelState. h> 

#in elude <shast ra/ net work/ server. h> 
#in elude <shast ra/network/mplex. h> 
#in elude <shast ra/network/hostMg r . h> 

#include <shast ra/datacomm/shast raDataH . h> 
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#in elude <shast ra/datacomm/shast raldH. h> 
#in elude <shast ra/datacomm/shast raldTagH. h> 

#include <shast ra/shautils/shautils . h> 
#include <shast ra/ s ha utils/ kernel Fronts P. h> 
#include <shast ra/s ha utils/ kernel Fronts . h> 
#include <shast ra/ s ha ut ils/ sesMg r Front s . h> 

int closedChannelCleanUpHandler(Protl(int )); 

int putCollTellJoinHandler ( Prot4( int, shastraldTag *, shastraldTag *, 
shast raldTag *) ) ; 

int putCollAskJoinHandler ( Prot3 ( int , shastraldTag *, shastraldTag *)); 
int quitFrontCleanUpHandler(ProtKint) ) ; 
int quitSesMgrCleanUpHandler(ProtKint) ) ; 

int commMsgTextFileReq(Prot4( hostData* , shastraldTag *, shastraldTag *, 

char *sbMsg ) ) ; 
void deleteSesMgrExportOprn(Protl( shastraldTag *)); 
int quitKernelCleanUpHandler(ProtKint) ) ; 
extern int shaSesmId2Fd ( ) ; 
extern int cmAckError ( ) ; 



#define DEBUGnn 
extern int debug; 

char *shaAppSesmMap[] [2] = SHA_APPSESM_MAP ; 

#def ine SHA_APPSESM_MAP_SIZE (sizeof (shaAppSesmMap)/(2*sizeof (char*) ) ) 

#define putStringOnChanneKf iledesc, reqstr, funcstr) \ 
if (cmSendString(f iledesc, reqstr) == -1) { \ 

f printf ( stderr, "%s : Error Sending to %d\n", funcstr, filedesc); 
\ 

closedChannelCleanUpHandler(f iledesc) ; \ 
return(0); \ 

} 

#define sendDataString(fd, s) \ 
if (cmSendString(fd, s) == -1){ \ 

f printf ( stderr, "Error in Sending Operation Data\n"); \ 
closedChannelCleanUpHandler(pHostMainKern->fdSocket) ; \ 
return(0) ; 
\ 

} 

#define Shast raldln ( f iledesc, pShald) \ 
if (shastraldln(filedesc, pShald) == -1){ \ 

f printf ( stderr, "Error Receiving SID from %d\n", filedesc); \ 
closedChannelCleanUpHandler(f iledesc) ; \ 
return(0); \ 

} 
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#define Shast raldOut ( f iledesc, pShald) \ 
if (shastraIdOut(filedesc, pShald) == -l){ \ 
f printf ( stderr, "Error Sending SID to %d\n" 
closedChannelCleanUpHandler(f iledesc) ; 
return(0) ; 

} 



f iledesc); \ 
\ 



#define Shast raldsln ( f iledesc, pShalds) \ 
if (shastraldsln(f iledesc, pShalds) == -l){ \ 

f printf ( stderr, "Error Receiving SIDs from %d\n", filedesc); 
closedChannelCleanUpHandler(f iledesc) ; \ 
return(0); \ 

} 



#define Shast raldsOut ( filedesc, pShalds) \ 
if (shastralds0ut(filedesc, pShalds) == -1){ \ 

f printf ( stderr, "Error Sending SIDs to %d\n", filedesc); 

closedChannelCleanUpHandler( filedesc) ; 

return(0); \ 

} 



#define Shast raldTagln ( filedesc, pShaldTag) \ 
if (shastraIdTagIn(filedesc, pShaldTag) == -1){ \ 
f printf ( stderr, "Error Receiving SID from %d\n" 
closedChannelCleanUpHandler( filedesc) ; 
return(0) ; 

} 



filedesc); \ 
\ 

\ 



#define Shast raldTagOut ( filedesc, pShaldTag) \ 
if (shastraldTagOuKfiledesc, pShaldTag) == -1){ \ 

f printf ( stderr, "Error Sending SID to %d\n", filedesc); \ 
closedChannelCleanUpHandler(f iledesc) ; \ 
return(0); \ 

} 

#define Shast raldTagsIn ( filedesc, pShaldTags) \ 
if (shastraIdTagsIn(f iledesc, pShaldTags) == -1){ \ 

f printf ( stderr, "Error Receiving SIDs from %d\n", filedesc); 
closedChannelCleanUpHandler(f iledesc) ; \ 
return(0); \ 

} 



#define Shast raldTagsOut ( f iledesc, pShaldTags) \ 
if (shastraldTagsOuKf iledesc, pShaldTags) == -1){ \ 

f printf ( stderr, "Error Sending SIDs to %d\n", filedesc); 

closedChannelCleanUpHandler( filedesc) ; 

return(0); \ 

} 



#define Shast raULongln ( filedesc, pShaldTag) \ 
if (shaULongIn(filedesc, pShaldTag) == -1){ \ 

f printf ( stderr, "Error Receiving ULong from %d\n", 



filedesc) ; 
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closedChannelCleanUpHandler(f iledesc) ; \ 
return(0); \ 

} 

#define Shast raULongOut ( f iledesc, pShaldTag) \ 
if (shaULongOut(filedesc, pShaldTag) == -1){ \ 

f printf ( stderr, "Error Sending ULong to %d\n", filedesc); 
closedChannelCleanUpHandler(f iledesc) ; \ 
return(0); \ 

} 



shaRouteMode 

routeFrontSIdTagToFd ( pSIdTag, pFd, nmFunc) 
shast raldTag *pSIdTag; 
int *pFd; 
char *nmFunc; 

{ 

shastrald *pSId; 
int outFd = -1; 

shaRouteMode retVal = route_ERROR; 

pSId = krFrSIdTag2SId(*pSIdTag) ; 
if (pSId == NULL) { 

sprintf ( sbOutMsgBuf , "%s->Unknown IDTag — Aborted\n", nmFunc); 

showlnf o( sbOutMsgBuf ) ; 

return( retVal) ; 

} 

if (pSId->HPAddr != kernelShastrald. UPAddr) { 
if (fMainKernel) { 

outFd = shaKernId2Fd(pSId) ; 
if (outFd == -1) { 

sprintf (sbOutMsgBuf , "%s->Unknown Kernel — Aborted\n", 

nmFunc) ; 
showlnf o( sbOutMsgBuf ) ; 
return retVal; 

} 

else{ 

retVal = route_KERNEL; 

} 

} else { 

retVal = route_DEFAULT; 

} 

} else { 

outFd = shaFrontId2Fd(pSId) ; 
if (outFd == -1) { 

sprintf ( sbOutMsgBuf , "%s->Unknown Front — Aborted\n", nmFunc); 
showlnf o( sbOutMsgBuf ) ; 
return retVal; 

} 

else{ 

retVal = route_FRONT; 

} 
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} 

*pFd = outFd; 
return retVal; 



shaRouteMode 

routeSesMgrSIdTagToFd (pSIdTag, pFd, nmFunc) 
shast raldTag *pSIdTag; 
int *pFd; 
char *nmFunc; 

{ 

shastrald *pSId; 
int outFd = -1; 

shaRouteMode retVal = route_ERROR; 

pSId = getSIdByTagInSIds(pSIdTag, &shast raSesmlds ) ; 
if (pSId == NULL) { 

sprintf ( sbOutMsgBuf , "%s->Unknown Sesm IDTag — Aborted\n", nmFunc) 

showInfo(sbOutMsgBuf ) ; 
return retVal; 

} 

if (pSId->lIPAddr != kernelShast raid . lIPAdd r) { 
if (fMainKernel) { 

outFd = shaKernId2Fd(pSId) ; 
if (outFd == -1) { 

sprintf ( sbOutMsgBuf , "%s->Unknown Kernel — Aborted\n", 

nmFunc) ; 
showInfo( sbOutMsgBuf ) ; 
return retVal; 

} 

else{ 

retVal = route_KERNEL; 

} 

} else { 

retVal = route_DEFAULT; 

} 

} else { 

outFd = shaSesmId2Fd(pSId) ; 
if (outFd == -1) { 

sprintf (sbOutMsgBuf , "%s->Unknown SesMgr — Aborted\n", nmFunc) 

showInfo( sbOutMsgBuf ) ; 
return(0) ; 

} 

else{ 

retVal = route_SESMGR; 

} 

} 

*pFd = outFd; 
return retVal; 
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shaRouteMode 

routeKernelSIdTagToFd (pSIdTag, pFd, nmFunc) 
shast raldTag *pSIdTag; 
int *pFd; 
char *nmFunc; 

{ 

shastrald *pSId; 
int outFd = -1; 

shaRouteMode retVal = route_ERROR; 

pSId = getSIdByTagInSIds(pSIdTag, &shast raKernlds ) ; 
if (pSId == NULL) { 

sprintf ( sbOutMsgBuf , "%s->Unknown Kernel IDTag — Aborted\n", 
nmFunc) ; 

showlnfo ( sbOutMsgBuf ) ; 

return retVal; 

} 

if (pSId->lIPAddr != kernelShast raid . lIPAdd r) { 
if (fMainKernel) { 

outFd = shaKernId2Fd(pSId) ; 
if (outFd == -1) { 

sprintf ( sbOutMsgBuf , "%s->Unknown Kernel — Aborted\n", 

nmFunc) ; 
showInfo( sbOutMsgBuf ) ; 
return retVal; 

} 

else{ 

retVal = route_KERNEL; 

} 

} else { 

retVal = route_DEFAULT; 

} 

} else { 

retVal = route_SELF; 

} 

*pFd = outFd; 
return retVal; 



/* 

* Function 
*/ 
int 

startSystemHandler(fd) 
int fd; 

{ 

static shastrald createSId; 
static char rshCmdBuf [256] ; 
char *shast raArgv [6] ; 

int retVal; 
int outFd; 
int krlndex; 
shastraldTag *pSIdTag; 
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shastrald *pSIdTmp; 

Shastraldln(fd, &createSId); 
if (debug) { 

outputld ( stderr, &createSId); 

} 

if ( ! strcmp(createSId.nmHost, kernelHostName) ) { 

if ( !strcmp(createSId.nmUser, kernelShast raid . nmUser) ) { 

sprintf ( rshCmdBuf , "%s", createSId . nmApplicn) ; 

shast raArgv [0] = rshCmdBuf; 

shastraArgv [1] = "-display"; 

shastraArgv [2] = createSId . nmDisplay; 

shastraArgv [3] = "-passwd"; 

shast raArgv [4] = createSId . nmPasswd; 

shastraArgv[5] = NULL; 
#ifdef SHASTRA4SUN4 

if (vforkO == 0) 
#else /* SHASTRA4SUN4 */ 

if (forkO == 0) 
#endif /* SHASTRA4SUN4 */ 

{ 

execv( shastraArgv [0] , shastraArgv) ; 
return (0) ; 
} else { 

wait3(NULL, WNOHANG, NULL); 

} 

} else { 

fprintf (stderr, "startSystemHandler( )->can 1 t start system for 
other users ! \n" ) ; 

} 

} 

else if ((krlndex = locateByNameKernFronts (&createSId ) ) != -1) { 
if (fMainKernel) { 

pSIdTag = KernFrontSIdTag ( krlndex) ; 

pSIdTmp = getSIdByTaglnSIds ( pSIdTag, &shast raKernlds ) ; 
outFd = shaKernId2Fd(pSIdTmp) ; 
if (outFd == -1) { 

sprintf ( sbOutMsgBuf, "Create( )->Unknown Kernel — Aborted\ 
n"); 

showInfo( sbOutMsgBuf ) ; 
cmAckError(f d) ; 
cmFlush(fd) ; 

return (0) ; 

} 

putShaStartSysHandler(outFd, &createSId) ; 
} else { 

startSystemExportOprn(&createSId) ; 

} 

} else { 

if ( !strcmp(createSId.nmUser, kernelShastrald.nmUser) ) { 

sprintf ( rshCmdBuf , "echo V'cd shast ra; \nexec %s -display %s - 
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passwd %s </dev/null >/dev/null 2>&1 &\" | rsh %s /bin/sh\ 
n" , 

createSId . nmApplicn, createSId . nmDisplay, 
createSId . nmPasswd, createSId . nmHost) ; 
retVal = system ( rshCmdBuf) ; 

fprintf (stdout, "%s\nretVal = %d\n", rshCmdBuf, retVal); 
} else { 

fprintf (stderr, "startSystemHandler( )->can 1 t start system for 
other users ! \n" ) ; 

} 

} 

if (fd != mainKernClntSocket ) { 
cmAckOk(fd) ; 
cmFlush(fd) ; 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_START_SYSTEM) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 
*/ 
int 

endSystemHandler(fd) 
int fd; 

{ 

static shastrald killSId; 
int outFd; 
int krlndex; 

Shastraldln(fd, &killSId); 
if (debug) { 

outputId(stderr, &killSId); 

} 

if (! st rcmp ( killSId . nmHost, kernelHostName) ) { 
outFd = shaFrontId2Fd(&killSId) ; 
if (outFd == -1) { 

if (killSId. ISIDTag == kernelShast raid . ISIDTag ) { 

terminateHandler(O) ; 
} else { 

outFd = shaSesmId2Fd(&killSId) ; 
if (outFd == -1) { 
cmAckError(fd) ; 
cmFlush(fd) ; 

sprintf ( sbOutMsgBuf , "endSystemHandler ( ) — unknown system\n"); 
showlnf o( sbOutMsgBuf ) ; 

return(0) ; 
} else { 

putShaTerminateHandler(outFd) ; 

} 

} 
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} else { 

putShaTerminateHandler(outFd) ; 

} 

} 

else if ((krlndex = locateByNameKernFronts (&killSId ) ) != -1) { 
if (fMainKernel) { 

outFd = shaKernId2Fd(&killSId) ; 
if (outFd == -1) { 
sprintf (sbOutMsgBuf , "KillHandler( )->Unknown Kernel — Aborted\n" ) ; 
showlnf o( sbOutMsgBuf ) ; 

cmAckError(f d) ; 
cmFlush(fd) ; 

return (0) ; 

} 

putShaEndSysHandler(outFd, &killSId) ; 
} else { 

endSystemExportOprn(&killSId) ; 

} 

} else { 

cmAckError(fd) ; 
cmFlush(fd) ; 

sprintf ( sbOutMsgBuf , "endSystemHandler ( ) — unknown host\n"); 
showlnf o ( sbOutMsgBuf ) ; 
return(0) ; 

} 

if (fd != mainKernClntSocket) { 
if (fd != outFd) { 
cmAckOk(fd) ; 
cmFlush(fd) ; 

} 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_END_SYSTEM) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



* Function 
*/ 
int 

connect SystemHandler ( f d ) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_CONNECT_SYSTEM) ; 
showlnf o( sbOutMsgBuf ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 
return(0) ; 

} 
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* Function 
*/ 
int 

getShastraldHandler(fd) 
int fd; 

{ 

cmAckOk(fd) ; 

ShastraIdsOut(fd, pShast raFrontlds ) ; 
cmFlush(fd) ; 

if (debug) { 

outputlds ( stderr, pShast raFrontlds ) ; 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_GET_SHASTRAID) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 
*/ 
int 

setShastraldHandler(fd) 
int fd; 

{ 

shastrald *pSId; 

pSId = &localShaIdIn [fd] ; 
shaKernFlags [fd] = SHAFRONT; 
Shastraldln(fd, pSId); 
if (debug) { 

outputId(stderr, pSId); 

} 

updateSha Front Ids (pShast raFrontlds ) ; 

if ( rgsbShastraFront != NULL) { 

strListDestroy( rgsbShastraFront) ; 

} 

rgsbShastraFront = pSIds2StrTab(pShastraFrontIds, PSIDNMHOST | 
PSIDNMAPPL) ; 

chooseOneChangeList (pcoSha st ra Front, rgsbShastraFront, 
coNoInitialHighlight) ; 

cmAckOk(fd) ; 
putShaStateHandler(fd) ; 
if ( IfMainKernel) 
{ 

setShaKernFrIdOprn(0) ; 

} 

{ 

int *pfd; 
int nfd; 
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getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putShaKernFrldHandler, 
(char *) &kernelShast raid ) ; 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_SET_SHASTRAID) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 
*/ 
int 

getShaKernldHandler(fd) 
int fd; 

{ 

cmAckOk(fd) ; 

ShastraIdsOut(fd, &shast raKernlds ) ; 
cmFlush(fd) ; 

if (debug) { 

outputlds ( stderr, &shast raKernlds ) ; 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_GET_SHAKERNID) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 
*/ 
int 

setShaKernldHandler(fd) 
int fd; 

{ 

shastrald *pSId; 
int krlndex; 

pSId = &localShaIdIn [fd] ; 
shaKernFlags [fd] = SHAKERNEL; 
Shastraldln(fd, pSId); 
if (debug) { 

outputId(stderr, pSId); 

} 

if ( IfMainKernel) { 
cmAckEr ror ( f d ) ; 
cmFlush(fd) ; 

sprintf (sbOutMsgBuf , "setShaKernIdHandler( ) — Not Authorized\n" ) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 



Page 11 of 44 



kernel_server.c 



7/5/11 11:16 AM 



updateShaKernlds ( ) ; 

krlndex = locateKernFronts ( pSId ) ; 

if (krlndex == -1) { 

krlndex = occupyKrFrFreeSlot(pSId) ; 
} else { 

f printf ( stderr, "setShaKernIdHandler( ) — already in %d\n", krlndex) 

} 

if ( rgsbShastraKern != NULL) { 

strListDestroy( rgsbShastraKern) ; 

} 

rgsbShastraKern = pSIds2StrTab(&shastraKernIds, PSIDNMHOST) ; 
chooseOneChangeList (pcoShast raKern, rgsbShastraKern, 
coNoInitialHighlight) ; 

cmAckOk(fd) ; 
putShaStateHandler(fd) ; 
{ 

int *pfd; 
int nfd; 

getKrFDsMCast ( f d, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putShaKernldHandler, NULL); 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SET_SHAKERNID) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 
*/ 
int 

getShaKernFrldHandler(fd) 
int fd; 

{ 

static shastrald inShald; 

shastralds *pSIds; 

int kernFd = -1; 

Shastraldln(fd, &inShaId); 

kernFd = locateKernFronts (&inShaId ) ; 

if (kernFd == -1) { 

cmAckError ( f d ) ; 

cmFlush(fd) ; 

sprintf ( sbOutMsgBuf , "getShaKernFrldHandler ( ) — unknown kernel\n") 

showlnf o ( sbOutMsgBuf ) ; 
return(0) ; 

} 
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pSIds = getKernFrontSIds(&inShaId) ; 
cmAckOk(fd) ; 

ShastraIdOut(fd, &inShaId); 
ShastraIdsOut(fd, pSIds); 
cmFlush(fd) ; 

if (debug) { 

outputld ( stderr, &inShaId); 
outputlds ( stderr, pSIds); 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_GET_SHAKERNFRID) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



* Function 
*/ 
int 

setShaKernFrldHandler(fd) 
int fd; 

{ 

shastralds *pSIds; 
static shastrald inShald; 
static shastralds inShalds; 
int krlndex; 
int mylndex; 

mylndex = locateKernFronts (&kernelShast raid ) ; 

Shastraldln(fd, &inShaId); 

krlndex = locateKernFronts (&inShaId ) ; 

if (krlndex == -1) { 

fprintf ( stderr, "setShaKernFrIdHandler( )-> unlocated kernel!\n"); 

Shastraldsln(fd, &inShaIds); 

cmAckEr ror ( f d ) ; 

cmFlush(fd) ; 

return -1; 

} 

if (krlndex == mylndex) { 

Shastraldsln(fd, &inShaIds); 
cmAckError(fd) ; 
cmFlush(fd) ; 

return 0; 

} 

pSIds = getKernFrontSIds(&inShaId) ; 
Shastraldsln(fd, pSIds); 
if (debug) { 

outputld ( stderr, &inShaId); 

outputlds ( stderr, pSIds); 

} 

if ( IfMainKernel) { 
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cmAckError ( f d ) ; 
cmFlush(fd) ; 

sprintf (sbOutMsgBuf , M setShaKernFrIdHandler( ) — Not Authorized\n" ) 

showInfo(sbOutMsgBuf ) ; 
return -1; 

} 

cmAckOk(fd) ; 
cmFlush(fd) ; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCast(fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putShaKernFrldHandler, (char*) &inShaId); 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SET_SHAKERNFRID) ; 
showInfo( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 
*/ 
int 

getShaSesmldHandler(fd) 
int fd; 

{ 

cmAckOk(fd) ; 

ShastraIdsOut(fd, &shast raSesmlds ) ; 
cmFlush(fd) ; 

if (debug) { 

outputlds ( stderr, &shast raSesmlds ) ; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_GET_SHASESMID) ; 
showInfo( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 
*/ 
int 

setShaSesmldHandler(fd) 
int fd; 

{ 

static shastrald inShald; 
shastrald *pSId; 
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int iLoc; 

if (shaKernFlags [fd] == SHAKERNEL) { 

pSId = &inShaId; 
} else { 

pSId = &localShaIdIn [fd] ; 

shaKernFlags [fd] = SHASESMGR; 

} 

Shastraldln(fd, pSId); 
if (debug) { 

outputld ( stderr, pSId); 

} 

iLoc = getSIdIndexInSIds(pSId, &shast raSesmlds ) ; 
if (iLoc == -1) { 

addSId2SIds(pSId, &shast raSesmlds ) ; 

if (occupySmFrFreeSlot(& pSId->lSIDTag ) == -1) { 

fprintf (stderr, "setShaSesmIdHandler( )->couldn 1 t occupy slot!\ 
n"); 

} 

} else { 

fprintf ( stderr, "setShaSesmIdHandler( )->already occupied slot!\n"); 

} 

if (rgsbShastraSesMgr != NULL) { 

strListDestroy( rgsbShastraSesMgr) ; 

} 

rgsbShastraSesMgr = pSIds2StrTab(&shastraSesmIds, 

PSIDNMHOST | PSIDNMAPPL); 
chooseOneChangeList (pcoShast raSesMg r, rgsbShast raSesMgr, 
coNoInitialHighlight) ; 

if (shaKernFlags [fd] == SHASESMGR) { 
cmAckOk(fd) ; 
putShaStateHandler(fd) ; 

} 

if ( IfMainKernel) { 

setShaSesmldExportOprn(pSId) ; 

} { 

int *pfd; 
int nfd; 

getKrFDsMCast(fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putShaSesmldHandler, (char *) pSId); 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SET_SHASESMID) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 

*/ 
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int 

getShaSesmFrldHandler(fd) 
int fd; 

{ 

static shastraldTag inShaldTag; 
shast raldTags *pSIdTags; 
shast raldTags *pPermTags ; 
int smlndex = -1; 

Shast raldTagln ( fd , &inShaIdTag ) ; 
smlndex = locateSesmFronts (&inShaIdTag ) ; 
if (smlndex == -1) { 

cmAckError ( f d ) ; 

cmFlush(fd) ; 

sprintf ( sbOutMsgBuf , "getShaSesmFrIdHandler( ) — unknown sesMgr\n") 

showInfo(sbOutMsgBuf ) ; 
return(0) ; 

} 

ShastraIdTagOut(fd, &inShaIdTag) ; 

pSIdTags = getSesmFrontSIdTags (&inShaIdTag ) ; 

pPermTags = getSesmFrontPermTags (&inShaIdTag ) ; 

cmAckOk(fd) ; 

ShastraIdTagsOut(fd, pSIdTags); 
ShastraIdTagsOut(fd, pPermTags); 
cmFlush(fd) ; 

if (debug) { 

outputldTag ( stderr, &inShaIdTag) ; 
outputldTags ( stderr, pSIdTags); 
outputldTags ( stderr, pPermTags); 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_GET_SHASESMFRID) ; 
showInfo( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 
*/ 
int 

setShaSesmFrldHandler(fd) 
int fd; 

{ 

shastraldTags *pSIdTags; 
shastraldTags *pPermTags; 
static shastraldTag inShaldTag; 
static shastraldTags inShaldTags; 
static shastraldTags inShaPermTags ; 
int smlndex; 
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Shast raldTagln ( f d , &inShaIdTag ) ; 
smlndex = locateSesmFronts (&inShaIdTag ) ; 
if (smlndex == -1) { 

f printf ( stderr, "setShaSesmFrIdHandler( )-> unlocated sesMg r ! \n" ) ; 

ShastraIdTagsIn(fd, &inShaIdTags ) ; 

ShastraIdTagsIn(fd, &inShaPermTags ) ; 

cmAckError(fd) ; 

cmFlush(fd) ; 

return(0) ; 

} 

pSIdTags = getSesmFrontSIdTags (&inShaIdTag ) ; 

ShastraIdTagsIn(fd, pSIdTags); 

pPermTags = getSesmFrontPermTags (&inShaIdTag ) ; 

ShastraIdTagsIn(fd, pPermTags ) ; 

if (debug) { 

outputldTag ( stderr, &inShaIdTag ) ; 

outputldTags ( stderr, pSIdTags); 

outputldTags ( stderr, pPermTags); 



cmAckOk(fd) ; 
cmFlush(fd) ; 

if ( IfMainKernel) { 

setShaSesmFrIdExportOprn(&inShaIdTag, pSIdTags, pPermTags); 

} { 

int *pfd; 
int nfd; 

getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putShaSesmFrldHandler, (char*) &inShaIdTag ) ; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SET_SHASESMFRID) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



helpHandler(fd) 

int fd; 

{ 

int i; 

char buf[512]; 

cmAckOk(fd) ; 

sprintf (buf, "%d\n", serverNCmds) ; 
putStringOnChanneKfd, buf, "helpHandler( ) " ) ; 
for (i = 0; i < serverNCmds; i++) { 

sprintf (buf, "%s — %s\n", serverCommandTab [i] . command, 
serve rCommandTab [i] . helpmsg) ; 

putStringOnChanneKfd, buf, "helpHandler ( ) " ) ; 

} 
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cmFlush(fd) ; 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_HELP) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

int 

quitHandler(fd) 

int fd; 

{ 

int fKern; 

fKern = shaKernFlags [f d ] ; 

switch (fKern) { 
case SHAKERNEL: 

quitKernelCleanUpHandler(fd) ; 

break; 
case SHASESMGR: 

quitSesMgrCleanUpHandler(fd) ; 

break; 
case SHAFRONT: 

quitFrontCleanUpHandler(f d) ; 

break; 
default: 

f printf ( stderr, "quitHandler ( )-> shouldn't happen!\n"); 
break; 

} 

return(0) ; 



int 

qu it Kerne ICleanUpHandler ( f d ) 
int fd; 

{ 

mplexUnRegisterChannel(fd) ; 
deleteShaIdFromTab(fd, pShast raFrontlds ) ; 
if ( rgsbShastraKern != NULL) { 

strListDestroy( rgsbShastraKern) ; 

} 

rgsbShastraKern = pSIds2StrTab(&shastraKernIds, PSIDNMHOST) ; 
chooseOneChangeList (pcoShast raKern, rgsbShastraKern, 
coNoInitialHighlight) ; 

if ( IfMainKernel) { 

f printf ( stderr, "quitKernelHandler ( )-> shouldn't happen!\n"); 

} 

localShaldln [fd] .ISIDTag = 0; 
{ 

int *pfd; 
int nfd; 
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getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putShaKernldHandler, NULL); 

} 

sprintf (sbOutMsgBuf , "Done (Kernel)— %s\n", REQ_QUIT) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



int 

quitSesMg rCleanUpHandler( f d ) 
int fd; 

{ 

mplexUnRegisterChannel(fd) ; 
shaKernFlags [fd] = 0; 

deleteSIdFromSIds(&localShaIdIn [fd] , &shast raSesmlds ) ; 
f reeSmFrSlot(& localShaldln [f d] .ISIDTag); 

if ( rgsbShastraSesMgr != NULL) { 

strListDestroy( rgsbShastraSesMgr) ; 

} 

rgsbShastraSesMgr = pSIds2StrTab(&shastraSesmIds, 

PSIDNMHOST | PSIDNMAPPL); 
chooseOneChangeList (pcoShast raSesMg r, rgsbShast raSesMgr, 
coNoInitialHighlight ) ; 

if ( IfMainKernel) { 

deleteSesMgrExportOprn( & localShaldln [fd] . ISIDTag) ; 

} 

localShaldln [fd] .ISIDTag = 0; 
{ 

int *pfd; 
int nfd; 

getKrFDsMCast ( fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putShaSesmldHandler, NULL); 

} 

sprintf (sbOutMsgBuf , "Done (SesMgr)— %s\n", REQ_QUIT) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



quitFrontCleanUpHandler(f d) 
int fd; 

{ 

mplexUnRegisterChanneKf d) ; 
deleteShaIdFromTab(fd, pShast raFrontlds ) ; 
if ( rgsbShastraFront != NULL) { 

strListDestroy( rgsbShastraFront) ; 

} 

rgsbShastraFront = pSIds2StrTab(pShastraFrontIds, 
PSIDNMHOST | PSIDNMAPPL); 
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chooseOneChangeList ( pcoSha st ra Front, rgsbShast ra Front , 
coNoInitialHighlight ) ; 

if ( IfMainKernel) { 

setShaKernFrIdOprn(0) ; 

} 

localShaldln [fd] .ISIDTag = 0; 
{ 

int *pfd; 
int nfd; 

getKrFDsMCast ( f d, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putShaKernFrldHandler, 
(char *) &kernelShastraId) ; 

} 

sprintf (sbOutMsgBuf , "Done (Front)— %s\n", RECLQUIT) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



collInitiateHandler(fd) 
int fd; 

{ 

char **shastraArgv; 
static shast raldTags sldTags; 
char sbBuf[32]; 
int i,n; 
shastrald *pSId; 
unsigned long perms, lldTag; 
char *sName; 

ShastraIdTagsIn(fd, &sIdTags); 
ShastraULongIn(fd, &perms); 
ShastraULongIn(fd, &UdTag); 
if (debug) { 

outputldTags ( stderr, &sIdTags); 

} 

pSId = krFrSIdTag2SId(sIdTags. shast raIdTags_val [0] ) ; 
if (pSId == NULL) { 

fprintf( stderr, "collInitiateHandler ( ) ->type unknown.. aborting\n") 

cmAckError(fd) ; 
cmFlush(fd) ; 

return(0) ; 

} 

shastraArgv = (char **) malloc ( sizeof (char *) * 
( sldTags . shast raIdTags_len + 16)); 

sName = resolveNameFrom2Bases(pKernelAppData->sDirBase, 

pKernelAppData->sDirBin, pKernelAppData->sLocStart) ; 
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n = 0; 

shast raArgv [n++] = strdup(sName) ; 

for (i = 0; i < SHA_APPSESM_MAP_SIZE; i++) { 

if ( ! strcmp(pSId->nmApplicn, shaAppSesmMap [i] [0] ) ) { 

shastraArgv [n++] = strdup(shaAppSesmMap [i] [1] ) ; 

break; 

} 

} 

if (i == SHA_APPSESM_MAP_SIZE) { 

f printf ( stderr, "collInitiateHandler ( ) ->No SesMgr.. aborting\n" ) ; 
cmAckError( f d ) ; 
cmFlush(fd) ; 

return(0) ; 

} 

shastraArgv [n++] = strdupC'-display" ) ; 

shastraArgv [n++] = strdup(kernelDispName) ; 

shastraArgv [n++] = strdup("-passwd" ) ; 

shastraArgv [n++] = strdup(kernelPasswd) ; 

shastraArgv [n++] = strdup("-perms" ) ; 

sprintf (sbBuf , "%lu", perms); 

shastraArgv [n++] = strdup(sbBuf ) ; 

shastraArgv [n++] = strdup("-idtag" ) ; 

sprintf (sbBuf, "%lu", lldTag); 

shastraArgv [n++] = strdup(sbBuf ) ; 

shastraArgv [n++] = strdup("-tags" ) ; 

for (i = 0; i < sldTags . shast raIdTags_len ; i++) { 

sprintf ( sbBuf , "%lu", sldTags . shast raIdTags_val [i] ) ; 

shastraArgv [n++] = strdup( sbBuf ) ; 

} 

shastraArgv [n++] = NULL; 
#ifdef SHASTRA4SUN4 

if (vforkO == 0) 
#else /* SHASTRA4SUN4 */ 

if (forkO == 0) 
#endif /* SHASTRA4SUN4 */ 

{ 

execv( shast raArgv [0] , shastraArgv) ; 
return(0) ; 
} else { 

strListDestroy(shastraArgv) ; 
wait3(NULL, WNOHANG, NULL); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

sprintf (sbOutMsgBuf, "Done — %s\n", REQ_COLL_INITIATE) ; 
showlnfo ( sbOutMsgBuf ) ; 

} 

return(0) ; 

} 
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collAutoInitiateHandler ( f d ) 
int fd; 

{ 

char **shastraArgv; 
static shastraldTags sldTags; 
char sbBuf[32]; 
int i, n; 

shastrald *pSId; 
unsigned long perms, lldTag; 
char *sName; 

n = 0; 

ShastraIdTagsIn(fd, &sIdTags); 
ShastraULongIn(fd, &perms); 
ShastraULongIn(fd, &UdTag); 
if (debug) { 

outputldTags ( stderr, &sIdTags); 

} 

pSId = krFrSIdTag2SId(sIdTags.shastraIdTags_val[0] ); 
if (pSId == NULL) { 

fprintf ( stderr, "collInitiateHandler ( )->type unknown.. aborting\n") 

cmAckError ( f d ) ; 
cmFlush(fd) ; 

return(0) ; 

} 

shastraArgv = (char **) malloc ( sizeof (char *) * 
( sldTags . shast raIdTags_len + 13)); 

sName = resolveNameFrom2Bases(pKernelAppData->sDirBase, 

pKernelAppData->sDirBin, pKernelAppData->sLocStart) ; 
shastraArgv [n++] = strdup(sName) ; 

for (i = 0; i < SHA_APPSESM_MAP_SIZE; i++) { 

if ( ! strcmp(pSId->nmApplicn, shaAppSesmMap [i] [0] ) ) { 
shastraArgv [n++] = strdup(shaAppSesmMap [i] [1] ) ; 
break; 

} 

} 

if (i == SHA_APPSESM_MAP_SIZE) { 

fprintf ( stderr, "collInitiateHandler () ->No SesMgr.. aborting\n" ) ; 
cmAckError(fd) ; 
cmFlush(fd) ; 

return(0) ; 

} 

shastraArgv [n++] = strdupC'-display" ) ; 

shast raArgv [n++] = strdup(kernelDispName) ; 

shastraArgv [n++] = strdupC'-passwd" ) ; 

shastraArgv [n++] = strdup(kernelPasswd) ; 

shastraArgv [n++] = strdup("-auto" ) ; 
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shast raArgv [n++] = strdupC'-perms" ) ; 

sprintf (sbBuf , "%lu", perms); 

shast raArgv [n++] = strdup(sbBuf ) ; 

shast raArgv [n++] = strdup("-idtag" ) ; 

sprintf (sbBuf, "%lu", lldTag); 

shast raArgv [n++] = strdup(sbBuf ) ; 

shast raArgv [n++] = strdup("-tags" ) ; 

for (i = 0; i < sldTags . shast raIdTags_len ; i++) { 

sprintf ( sbBuf , "%lu", sldTags . shast raIdTags_val [i] ) ; 

shastraArgv [n++] = st rdup ( sbBuf ) ; 

} 

shast raArgv [n++] = NULL; 
#ifdef SHASTRA4SUN4 

if (vforkO == 0) 
#else /* SHASTRA4SUN4 */ 

if (forkO == 0) 
#endif /* SHASTRA4SUN4 */ 

{ 

execv( shast raArgv [0] , shastraArgv) ; 
return(0) ; 
} else { 

st rListDest roy( shast raArgv) ; 
wait3(NULL, WNOHANG, NULL); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

sprintf (sbOutMsgBuf, "Done — %s\n", REQ_COLL_INITIATE) ; 
showlnf o( sbOutMsgBuf ) ; 

} 

return(0) ; 



int 

deleteSesMgrHandler(f d) 
int fd; 

{ 

static shastraldTag sldTag; 
int iSm; 

if ( IfMainKernel) { 
cmAckError(fd) ; 
cmFlush(fd) ; 

f printf ( stderr, "deleteSesMg rHandler ( )-> shouldn't happen\n"); 
return(0) ; 

} 

ShastraIdTagIn(fd, &sIdTag); 

iSm = getSIdTaglndexInSIds (&sIdTag, &shast raSesmlds ) ; 
if (iSm == -1) { 

cmAckEr ror ( f d ) ; 

cmFlush(fd) ; 

sprintf (sbOutMsgBuf , "%s.. no such sesMgr\n", REQ_DELETE_SESMGR) ; 
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showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

cmAckOk(fd) ; 
cmFlush(fd) ; 



deleteSIdFromSIds ( shast raSesmlds . shast ralds_val [iSm] , &s hast raSesmlds ) ; 

f reeSmFrSlot(&sIdTag) ; 

if ( rgsbShastraSesMgr != NULL) { 

strListDestroy( rgsbShastraSesMgr) ; 

} 

rgsbShastraSesMgr = pSIds2StrTab(&shastraSesmIds, 

PSIDNMHOST | PSIDNMAPPL); 
chooseOneChangeList (pcoShast raSesMg r, rgsbShast raSesMgr, 
coNoInitialHighlight ) ; 



int 
int 



*pf d ; 
nfd; 



} 



getKrFDsMCast(fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putShaSesmldHandler, 
(char *) &kernelShastraId) ; 



sprintf (sbOutMsgBuf , "Done— %s\n", REQ_DELETE_SESMGR) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



int 

terminateHandler(fd) 
int fd; 

{ 



sprintf ( sbOutMsgBuf , "Done 
showlnf o( sbOutMsgBuf ) ; 
quitOprn(0) ; 
return(0) ; 

} 

int 

collInviteJoinHandler( f d) 



%s\n", REQ_TERMINATE) 



int 



fd; 



shastraldTag 
shastraldTag 
shastraldTag 
shastraldTag 
int outFd; 



sesmSIdTag; 
f rontSIdTag; 
leaderSIdTag; 
f rontPermTag; 



ShastraIdTagIn(fd, &sesmSIdTag ) ; 
ShastraIdTagIn(fd, &f rontSIdTag) ; 
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ShastraIdTagIn(fd, &leaderSIdTag ) ; 

Shast raldTagln ( f d , &f rontPermTag) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 



switch ( routeFrontSIdTagToFd (&f rontSIdTag, &outFd, 
M collInviteJoinHandler( ) " ) ) { 
case route_DEFAULT: 

collInviteJoinOprn(&sesmSIdTag, &f rontSIdTag, &leaderSIdTag, 
&f rontPermTag) ; 

break; 

case route_KERNEL: 
case route_FRONT: 

putCollInviteJoinHandler(outFd, &sesmSIdTag, &f rontSIdTag, 
&leaderSIdTag, &f rontPermTag) ; 

break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_INVITEJOIN) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

int 

collAskJoinHandler(fd) 
int fd; 

{ 

shastraldTag sesmSIdTag; 
shastraldTag frontSIdTag; 
int outFd; 



ShastraIdTagIn(fd, &sesmSIdTag ) ; 
Shast raldTagln ( fd , &f rontSIdTag) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 



switch ( routeSesMg rSIdTagToFd (&sesmSIdTag, &outFd, 

"collAskJoinHandlerO") ){ 
case route_DEFAULT: 

collAskJoinOprn(&sesmSIdTag, &f rontSIdTag) ; 
break; 

case route_KERNEL: 
case route_SESMGR: 

putCollAskJoinHandler(outFd, &sesmSIdTag, &f rontSIdTag) ; 
break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_COLL_ASKJOIN ) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 
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} 

int 

collTeUJoinHandler(fd) 

int fd; 

{ 

shast raldTag sesmSIdTag ; 

shast raldTag f rontSIdTag ; 

shast raldTag f rontPermTag; 

shastrald *pSId; 

int outFd; 

ShastraIdTagIn(fd, &sesmSIdTag ) ; 
Shast raldTagln ( fd , &f rontSIdTag) ; 
Shast raldTagln ( fd , &f rontPermTag) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 



pSId = krFrSIdTag2SId(f rontSIdTag) ; 
if (pSId == NULL) { 

sprintf ( sbOutMsgBuf , "collTellJoinHandler ( ) ->Unknown IDTag — 
Aborted\n" ) ; 

showlnfo ( sbOutMsgBuf ) ; 

return(0) ; 

} 

if (pSId->lIPAddr != kernelShast raid . lIPAdd r) { 
if (fMainKernel) { 

outFd = shaKernId2Fd(pSId) ; 
if (outFd == -1) { 

sprintf (sbOutMsgBuf , "collTellJoinHandler ( )->Unknown Kernel — Aborted\ 
n"); 

showInfo( sbOutMsgBuf ) ; 

return (0) ; 

} 

put CollTellJoinHandler (outFd, &sesmSIdTag, 

&f rontSIdTag, &f rontPermTag) ; 

} else { 

collTellJoinOprn (&sesmSIdTag , &f rontSIdTag, 
&f rontPermTag ) ; 

} 

} else { 

int outFd; 
outFd = shaFrontId2Fd(pSId) ; 
if (outFd == -1) { 

sprintf (sbOutMsgBuf , "collTellJoinHandler( )->Unknown Front — 

Aborted\n" ) ; 
showInfo( sbOutMsgBuf ) ; 
return(0) ; 

} 

putCollTellJoinHandler(outFd, &sesmSIdTag, &f rontSIdTag, 
&f rontPermTag) ; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_TELLJOIN) ; 
showInfo( sbOutMsgBuf ) ; 
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return(0) ; 



} 



/* 

* Function 
*/ 
int 

putShaKernldHandler(fd) 
int fd; 

{ 

putStringOnChanneKfd, REQ_SET_SHAKERNID, M putShaKernIdHandler( ) " ) ; 
ShastraIdsOut(fd, &shast raKernlds ) ; 
cmFlush(fd) ; 
return(0) ; 



/* 

* Function 
*/ 
int 

putShaKernFrIdHandler(fd, pSIdKern) 
int fd; 
shastrald *pSIdKern; 



putStringOnChanneKfd, REQ_SET_SHAKERNFRID, "putShaKernFrIdHandler( ) " ) ; 
cmFlush(fd) ; 

ShastraIdOut(fd, pSIdKern); 
cmFlush(fd) ; 

krlndex = locateKernFronts ( pSIdKern ) ; 
if (krlndex == -1) { 

f printf ( stderr, "putShaKernFrIdHandler( )-> unlocated kernel!\n"); 

krlndex = 0; 

} 

pSIds = getKernFrontSIds(pSIdKern) ; 
ShastraIdsOut(fd, pSIds); 
cmFlush(fd) ; 
if (debug) { 

outputld ( stderr, pSIdKern); 
outputlds ( stderr, pSIds); 



} 



{ 



shast raids 
int 



*pSIds; 
krlndex; 



} 

cmFlush(fd) ; 
return(0) ; 



} 



/* 



* Function 

*/ 



Page 27 of 44 



kernel_server.c 



7/5/11 11:16 AM 



putShaSesmIdHandler(f d) 
int fd; 

{ 

putStringOnChanneKfd, REQ_SET_SHASESMID, "putShaSesmIdHandler( ) " ) ; 
ShastraIdsOut(fd, &shast raSesmlds ) ; 
cmFlush(fd) ; 
return(0) ; 

} 



/* 

* Function 
*/ 
int 

putShaSesmFrIdHandler(f d, pSIdTagSesm) 
int fd; 
shast raldTag *pSIdTagSesm; 



{ 



shast raldTags *pSIdTags; 
shast raldTags *pPermTags ; 
int smlndex; 



putStringOnChanneKfd, REQ_SET_SHASESMFRID, "putShaSesmFrIdHandler( ) " ) ; 
ShastraIdTagOut(fd, pSIdTagSesm) ; 
smlndex = locateSesmFronts ( pSIdTagSesm) ; 
if (smlndex == -1) { 

f printf ( stderr, "putShaSesmFrIdHandler( )-> unlocated sesMg r ! \n" ) ; 

smlndex = 0; 

} 

pSIdTags = getSesmFrontSIdTags ( pSIdTagSesm) ; 

ShastraIdTagsOut(fd, pSIdTags); 

pPermTags = getSesmFrontPermTags ( pSIdTagSesm) ; 

Shast raldTagsOut ( fd, pPermTags); 

if (debug) { 

outputldTag ( stderr, pSIdTagSesm) ; 

outputldTags ( stderr, pSIdTags); 

outputldTags ( stderr, pPermTags); 

} 

cmFlush(fd) ; 
return(0) ; 



/* 

* Function 
*/ 
int 

putShaStateHandler(fd) 
int fd; 

{ 
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int i; 
putShaKernldHandler(fd) ; 

for (i = 0; i < shast raKernlds . shast ralds_len; i++) 
{ 

putShaKernFrIdHandler(fd, shast raKernlds . shast raid s_va I [i] ) ; 

} 

putShaSesmldHandler(fd) ; 

for (i = 0; i < shast raSesmlds . shast ralds_len; i++) { 

putShaSesmFrIdHandler(fd, & shast raSesmlds . shast ralds_val [i] -> 
ISIDTag) ; 

} 

return(0) ; 



* Function 
*/ 
int 

putShaStartSysHandler(fd, pSIdCreate) 
int fd; 
shastrald *pSIdCreate; 

{ 

putStringOnChanneKfd, REQ_START_SYSTEM , M putShaStartSysHandler( ) " ) ; 
ShastraIdOut(fd, pSIdCreate); 
if (debug) { 

outputld ( stderr, pSIdCreate); 

} 

cmFlush(fd) ; 
return(0) ; 

} 



* Function 
*/ 

int 

putShaEndSysHandler(fd, pSIdKill) 
int fd; 
shastrald *pSIdKill; 

{ 

putStringOnChanneKfd, REQ_END_SYSTEM, "putShaEndSysHandler ( ) " ) ; 
ShastraIdOut(fd, pSIdKill); 
if (debug) { 

outputId(stderr, pSIdKill); 

} 

cmFlush(fd) ; 
return(0) ; 

} 

/* 

* Function 
*/ 

int 
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putShaTerminateHandler ( f d ) 
int fd; 

{ 

putStringOnChanneKfd, REQ_TERMINATE, "putShaTerminateHandler( ) " ) ; 
cmFlush(fd) ; 
return(0) ; 

} 

/* 

* Function 
*/ 
int 

putCollInviteJoinHandler(fd, pSesmldTag , pFrontldTag, pLeaderldTag, 
pFrontPermTag ) 
int fd; 
shast raldTag *pSesmIdTag ; 
shast raldTag *pFrontIdTag ; 
shast raldTag *pLeaderIdTag ; 
shast raldTag *pFrontPermTag ; 



} 



putStringOnChanneKfd, REQ_COLL_INVITEJOIN, "putCollInviteJoinHandler ( 
)"); 

ShastraIdTagOut(fd, pSesmldTag ) ; 

ShastraIdTagOut(fd, pFrontldTag) ; 

ShastraIdTagOut(fd, pLeaderldTag) ; 

Shast raldTagOut ( fd , pFrontPermTag ) ; 
cmFlush(fd) ; 
return(0) ; 



/* 

* Function 
*/ 
int 

putCollAskJoinHandler( f d, pSesmldTag, pFrontldTag) 
int fd; 
shastraldTag *pSesmIdTag ; 
shastraldTag *pFrontIdTag; 



{ 



} 



putStringOnChanneKfd, REQ_COLL_ASKJOIN, M putCollAskJoinHandler( ) " ) ; 
ShastraldTagOuKfd, pSesmldTag); 
ShastraIdTagOut(fd, pFrontldTag) ; 
cmFlush(fd) ; 
return(0) ; 



/* 

* functionO — 
*/ 
int 

putCollTellJoinHandler(fd, pSesmldTag, pFrontldTag, pFrontPermTag) 
int fd; 
shastraldTag *pSesmIdTag; 
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shast raldTag *pFrontIdTag ; 
shast raldTag *pFrontPermTag ; 

{ 

putStringOnChanneKfd, REQ_COLL_TELLJOIN, "putCollTellJoinHandler( ) " ) ; 
ShastraIdTagOut(fd, pSesmldTag ) ; 
ShastraIdTagOut(fd, pFrontldTag) ; 
ShastraIdTagOut(fd, pFrontPermTag ) ; 
cmFlush(fd) ; 
return(0) ; 



/* 

* functionO — 
*/ 
int 

closedChannelCleanUpHandler(f d) 
int fd; 

{ 

switch ( shaKernFlags [fd] ) { 
case SHAKERNEL: 
#ifdef DEBUG 

fprintf(stderr, "closedChannelCleanUpHandler(%d ) — kernel 
disconnected ! \n" , fd); 
#endif /* DEBUG */ 

quitKernelCleanUpHandler(f d) ; 
break; 
case SHASESMGR: 
#ifdef DEBUG 

f print f ( stderr, M closedChannelCleanUpHandler(%d) — sesmg r 
disconnected ! \n" , fd); 
#endif /* DEBUG */ 

quitSesMgrCleanUpHandler(f d) ; 
break; 
case SHAFRONT: 
#ifdef DEBUG 

f print f ( stderr, M closedChannelCleanUpHandler(%d) — front 
disconnected ! \n" , fd); 
#endif /* DEBUG */ 

quitFrontCleanUpHandler(fd) ; 
break; 
default: 
#ifdef DEBUG 

f print f ( stderr, M closedChannelCleanUpHandler(%d) — unknown client 
disconnected ! \n" , fd); 
#endif /* DEBUG */ 

mplexUnRegisterChannel(fd) ; 
break; 

} 

return(0) ; 



/* 

* Function 
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*/ 

int putCollInviteMsgHandler(fd, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 
int fd; 

shast raldTag *pSmSIdTag ; 
shast raldTag *pToSIdTag; 
shast raldTag *pSIdTag; 
char *sbMsg; 

{ 

putStringOnChanneKfd, REQ_COLL_INVITEMSG, M putCollInviteMsgHandler( ) " ) 

ShastraIdTagOut(fd, pSmSIdTag ) ; 
ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 
return(0) ; 



/* 

* Function 

*/ 

int collInviteMsgHandler ( f d ) 
int fd; 

{ 

shastraldTag smSIdTag; 
shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

switch ( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
M collInviteMsgHandler( )") ){ 
case route_DEFAULT: 

collInviteMsgReq(pHostMainKern, &smSIdTag, &toSIdTag, 
&sIdTag, sMsg); 

break; 

case route_KERNEL: 
case route_FRONT: 

putCollInviteMsgHandler(outFd, &smSIdTag, &toSIdTag, 
&sIdTag, sMsg); 

break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_INVITEMSG) ; 
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showlnf o( sbOutMsgBuf ) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int putCollInvRespMsgHandler(fd, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 
int fd; 

shast raldTag *pSmSIdTag ; 
shast raldTag *pToSIdTag; 
shast raldTag *pSIdTag; 
char *sbMsg; 

{ 

putStringOnChanneKfd, REQ_COLL_INVRESPMSG, M putCollInvRespMsgHandler( 
)"); 

ShastraIdTagOut(fd, pSmSIdTag ) ; 
ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int collInvRespMsgHandler(fd) 
int fd; 

{ 

shastraldTag smSIdTag; 
shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

switch ( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
M collInvRespMsgHandler( )") ){ 
case route_DEFAULT: 

collInvRespMsgReq ( pHostMainKern, &smSIdTag, &toSIdTag, 
&sIdTag, sMsg); 

break; 

case route_KERNEL: 
case route_FRONT: 

putCollInvRespMsgHandler(outFd, &smSIdTag, &toSIdTag, 
&sIdTag, sMsg); 
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break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_INVRESPMSG) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



*/ 
int 



putCollInviteStatusHandler ( f d , 
int fd; 

shastraldTag *pSmSIdTag ; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
shaULong IStatus; 

putStringOnChanneKfd, REQ_COLL_INVITESTATUS, 
M putCollInviteStatusHandler( ) " ) ; 

ShastraIdTagOut(fd, pSmSIdTag ) ; 

ShastraIdTagOut(fd, pToSIdTag); 

ShastraIdTagOut(fd, pSIdTag); 

ShastraULongOut(fd, &lStatus); 

cmFlush(fd) ; 
return(0) ; 



pSmSIdTag, pToSIdTag, pSIdTag, IStatus) 



*/ 
int 



colli nviteStatusHandler(fd) 
int fd; 



shast raldTag 
shast raldTag 
shast raldTag 
shaULong 
int outFd; 



smSIdTag; 
toSIdTag; 
sldTag; 
IStatus; 



ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
ShastraULongIn(fd, &lStatus); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
M collInviteStatusHandler( )") ){ 
case route_DEFAULT: 

collInviteStatusReq(pHostMainKern, &smSIdTag, 



&toSIdTag, 
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&sIdTag, IStatus); 

break; 

case route_KERNEL : 
case route_FRONT: 

putCollInviteStatusHandler(outFd, &smSIdTag, &toSIdTag, 
&sIdTag, IStatus); 

break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_INVITESTATUS) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 

*/ 

int putCollAskJoinMsgHandler(fd, pSmSIdTag, pSIdTag, sbMsg) 
int fd; 

shastraldTag *pSmSIdTag ; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

putStringOnChanneKfd, REQ_COLL_ASKJOINMSG, "putCollAskJoinMsgHandler ( 
)"); 

ShastraIdTagOut(fd, pSmSIdTag ) ; 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int collAskJoinMsgHandler ( f d ) 
int fd; 

{ 

shastraldTag smSIdTag; 
shastraldTag sldTag; 
char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

switch( routeSesMgrSIdTagToFd(&smSIdTag, &outFd, 
"coUAskJoinMsgHandler( )") ){ 
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case route_DEFAULT: 

collAskJoinMsgReq(pHostMainKern, &smSIdTag, &sIdTag, sMsg); 
break; 

case route_KERNEL : 
case route_SESMGR: 

putCollAskJoinMsgHandler(outFd, &smSIdTag, &sIdTag, sMsg); 
break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_ASKJOINMSG) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 

*/ 

int putCollAskJnRespMsgHandler(fd, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 
int fd; 

shastraldTag *pSmSIdTag ; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

putStringOnChanneKfd, REQ_COLL_ASKJNRESPMSG, 

M putCollAskJnRespMsgHandler( )") ; 
ShastraIdTagOut(fd, pSmSIdTag ) ; 
ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 

return(0) ; 

} 

/* 

* Function 

*/ 

int collAskJnRespMsgHandler(fd) 
int fd; 

{ 

shastraldTag smSIdTag; 
shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
cmAckOk(fd) ; 
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cmFlush(fd) ; 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
M collAskJnRespMsgHandler( )") ){ 
case route_DEFAULT: 

collAskJnRespMsgReq(pHostMainKern, &smSIdTag, &toSIdTag, 
&sIdTag, sMsg); 

break; 

case route_KERNEL: 
case route_FRONT: 

putCollAskJnRespMsgHandler(outFd, &smSIdTag, &toSIdTag, 
&sIdTag, sMsg); 

break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_ASKJNRESPMSG) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 

*/ 

int putCollAskJnStatusHandler(fd, pSmSIdTag, pToSIdTag, pSIdTag, IStatus) 
int fd; 

shastraldTag *pSmSIdTag ; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
shaULong IStatus; 

{ 

putStringOnChanneKfd, REQ_COLL_ASKJNSTATUS, "putCollAskJnStatusHandler 
()"); 

ShastraIdTagOut(fd, pSmSIdTag ) ; 
ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
ShastraULongOut(fd, &lStatus); 
cmFlush(fd) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int collAskJnStatusHandler(fd) 
int fd; 

{ 

shastraldTag smSIdTag; 
shastraldTag toSIdTag; 
shastraldTag sldTag; 
shaULong IStatus; 
int outFd; 
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ShastraIdTagIn( 
ShastraIdTagIn( 
ShastraIdTagIn( 
ShastraULongIn( 
cmAckOk(fd) ; 
cmFlush(fd) ; 



fd, &smSIdTag); 

fd, &toSIdTag); 

fd, &sIdTag); 

fd, &lStatus); 



switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
"collAskJnStatusHandlerO") ){ 
case route_DEFAULT: 

collAskJnStatusReq ( pHostMainKern, &smSIdTag, &toSIdTag, 
&sIdTag, IStatus); 

break; 

case route_KERNEL: 
case route_FRONT: 

putCollAskJnStatusHandler(outFd, &smSIdTag, &toSIdTag, 
&sIdTag, IStatus); 

break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_ASKJNSTATUS) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 

*/ 

int putCommMsgTextHandler(f d, pToSIdTag, pSIdTag, sbMsg) 
int fd; 

shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 



{ 



putStringOnChanneKfd, REQ_COMM_MSGTEXT, "putCommMsgTextHandler ( ) " ) ; 
ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 
return(0) ; 



/* 

* Function 

*/ 

int commMsgTextHandler(fd) 
int fd; 

{ 

shastraldTag toSIdTag; 
shastraldTag sldTag; 
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char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 

"commMsgTextHandler( ) " ) ) { 
case route_DEFAULT: 

commMsgTextReq ( pHostMainKern, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_KERNEL: 
case route_FRONT: 

putCommMsgTextHandler(outFd, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_COMM_MSGTEXT) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 

*/ 

int putCommMsgTextFileHandler(fd, pToSIdTag, pSIdTag, sbMsg) 
int fd; 

shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

putSt ringOnChanneKfd, REQ_COMM_MSGTEXTFILE, "putCommMsgTextFileHandler 
()"); 

ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgTextFileHandler ( f d ) 
int fd; 

{ 

shastraldTag toSIdTag; 
shastraldTag sldTag; 
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char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 

"commMsgTextFileHandler( ) " ) ) { 
case route_DEFAULT: 

commMsgTextFileReq ( pHostMainKern, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_KERNEL: 
case route_FRONT: 

putCommMsgTextFileHandler(outFd, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COMM_MSGTEXTFILE) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 

*/ 

int putCommMsgAudioHandler( f d, pToSIdTag, pSIdTag, sbMsg) 
int fd; 

shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

putStringOnChanneKfd, REQ_COMM_MSGAUDIO, "putCommMsgAudioHandler ( ) " ) ; 
ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgAudioHandler ( f d ) 
int fd; 

{ 

shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 
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int outFd; 

ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 

"commMsgAudioHandler( ) " ) ) { 
case route_DEFAULT: 

commMsgAudioReq(pHostMainKern, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_KERNEL: 
case route_FRONT: 

putCommMsgAudioHandler(outFd, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_COMM_MSGAUDIO) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 

*/ 

int putCommMsgAudioFileHandler(fd, pToSIdTag, pSIdTag, sbMsg) 
int fd; 

shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

putStringOnChanneKfd, REQ_COMM_MSGAUDIOFILE, 

"putCommMsgAudioFileHandler( ) " ) ; 
ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 

return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgAudioFileHandler(fd) 
int fd; 

{ 

shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 
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int outFd; 

ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 

"commMsgAudioFileHandler ( ) " ) ) { 
case route_DEFAULT: 

commMsgAudioFileReq(pHostMainKern, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_KERNEL: 
case route_FRONT: 

putCommMsgAudioFileHandler(outFd, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COMM_MSGAUDIOFILE) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 

*/ 

int putCommMsgVideoHandler( f d, pToSIdTag, pSIdTag, sbMsg) 
int fd; 

shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

putStringOnChanneKfd, REQ_COMM_MSGVIDEO, "putCommMsgVideoHandler ( ) " ) ; 
ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 
return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgVideoHandler ( f d ) 
int fd; 

{ 

shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 
int outFd; 
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ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 

"commMsgVideoHandler( ) " ) ) { 
case route_DEFAULT: 

commMsgVideoReq(pHostMainKern, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_KERNEL : 
case route_FRONT: 

putCommMsgVideoHandler(outFd, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_COMM_MSGVIDEO) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 



/* 

* Function 

*/ 

int putCommMsgVideoFileHandler(fd, pToSIdTag, pSIdTag, sbMsg) 
int fd; 

shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

putStringOnChanneKfd, REQ_COMM_MSGVIDEOFILE, 

"putCommMsgVideoFileHandler( ) " ) ; 
ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 

return(0) ; 

} 

/* 

* Function 

*/ 

int commMsgVideoFileHandler(fd) 
int fd; 

{ 

shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 
int outFd; 
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ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 



switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 

"commMsgVideoFileHandler( ) " ) ) { 
case route_DEFAULT: 

commMsgVideoFileReq(pHostMainKern, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_KERNEL : 
case route_FRONT: 

putCommMsgVideoFileHandler(outFd, &toSIdTag, &sIdTag, sMsg); 
break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COMM_MSGVIDEOFILE) ; 
showlnf o( sbOutMsgBuf ) ; 
return(0) ; 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* kernelfind.c - find the master kernel 

* 

*/ 



#include 


<stdio. h> 




#include 


<signal. h> 




#include 


<unistd . h> 




#include 


<stdlib.h> 




#include 


<st ring . h> 




#include 


<sys/socket . 


h> 


#include 


<netinet/in . 


h> 


#include 


<netdb . h> 




#include 


<time. h> 




#include 


<sys/time. h> 




#include 


<X11/Intrinsic.h> 



#define RESPORT 9999 
#define MAINPORT 9998 
#define NAMELEN 128 
char *myhostname = NULL; 

static int kernnameserver(char *, int *, unsigned long *) 

char *MasterKernelName(char *myhostname) 
{ 

int ssock; 

struct timeval timeout; 
int i, result; 
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fd_set iReadMask, iWriteMask, iExcepnMask; 
char buf [NAMELEN] ; 
int res; 
char *told; 

if ((told = getenv ( "MASTERKERNEL" ) ) != NULL) 
{ 

return (told) ; 

} 

memset(buf ,0, NAMELEN) ; 

ssock = ntBroadcastServer(RESPORT) ; 

res = ntBroadcast (MAINPORT, myhostname, st rlen (myhostname) ) ; 

FD_ZER0( &iReadMask); 
FD_ZER0( &iWriteMask) ; 
FD_ZER0( &iExcepnMask) ; 
FD_SET(ssock, &iReadMask); 
timeout . tv_sec = 3; 
timeout . tv_usec = 0; 

if ((result = select ( ssock+1, (fd_set *)&iReadMask, 

(fd_set *)&iWriteMask, (fd_set *)&iExcepnMask,&timeout) ) 
<= 0) 

{ 

return (NULL); 

} 

if (FD_ISSET(ssock, &iReadMask)) 
{ 

read(ssock, buf, NAMELEN); 
close( ssock) ; 
return( strdup(buf ) ) ; 

} 

return(NULL) ; 

} 

int SetupKernelNameServer(XtAppContext xac, char *myname) 
{ 

int ssock; 

ssock = ntBroadcastServer(MAINPORT) ; 
myhostname = strdup(myname) ; 

XtAppAddlnput (xac, ssock, (XtPointer)XtlnputReadMask, 

(XtlnputCallbackProc) kernnameserver ,NULL) ; 
XtAppAddlnput (xac, ssock, (XtPointer)XtlnputExceptMask, 

(XtlnputCallbackProc) kernnameserver ,NULL) ; 

} 

int kernnameserver(char *arg, int *pfd, unsigned long *plld) 
{ 

char buf [NAMELEN] ; 
int I; 
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int res; 
int fd; 

fd = *pfd; 

memset(buf , 0, NAMELEN) ; 
I = read(fd, buf , NAMELEN) ; 

res = ntBroadcast (RESPORT,myhostname, st rlen (myhostname) ) ; 
return( res) ; 



int ntBroadcastServer ( int port) 
{ 

int isocket; 

struct sockaddr_in sa; 

int iOption; 

int res; 

if ((isocket = socket (AF_INET, SOCK_DGRAM, 0)) < 0) 
{ 

pe morC 1 socket ( )") ; 
return(-l) ; 

} 

sa . sin_f amily = AF_INET; 
sa.sin_addr.s_addr = INADDR_ANY; 
sa.sin_port = htons(port) ; 

if (bind(isocket, (struct sockaddr *)&sa, sizeof(sa)) != 0) 
{ 

perrorC'bind ():"); 
close( isocket) ; 
return(-l) ; 

} 

iOption = 1; 

if (setsockopt(isocket, S0L_S0CKET, SO_REUSEADDR, 

(const char *)&iOption, sizeof (iOption) ) == -1) 

{ 

perror("setsockopt() S0L_S0CKET, SO_REUSEADDR" ) ; 
close(isocket) ; 
return(-l) ; ; 

} 

iOption = 1; 

if (setsockopt(isocket, S0L_S0CKET, S0_BR0ADCAST, 

(const char *)&iOption, sizeof (iOption) ) == -1) 

{ 

perror("setsockopt() S0L_S0CKET, S0_BR0ADCAST" ) ; 
close(isocket) ; 
return(-l) ; ; 

} 

return(isocket) ; 
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int ntBroadcast ( int port, char *buf, int numbytes) 
{ 

int res; 
int sock; 

struct sockaddr_in sa; 
struct hostent *mhost; 
char hostname [255] ; 
int value; 
int status; 

sock = socket ( AF_INET, SOCK_DGRAM, 0); 
value = 1; 

status = setsockopt(sock, S0L_S0CKET, S0_BR0ADCAST, (const char *)& 

value, sizeof (int) ) ; 
if (status == -1) 
{ 

perrorC'setsockopt" ) ; 
exit(l) ; 

} 

gethostname ( hostname, 255); 

if ((mhost = gethostbyname(hostname) ) == NULL) 
{ 

f printf ( stder r, "unknown host %s\n", "localhost" ) ; 
close( sock) ; 
return(-l) ; 

} 

memcpy( (char *)&sa. sin_addr, mhost->h_add r, mhost->h_length ) ; 
sa. sin_family = AF_INET; 

/*sa. sin_addr. s_addr = sa . sin_add r . s_add r | 0x000000ff ;*/ 
/* well we have a broadcast net here at Purdue But NTT has a 

multicast net. Its weird! */ 
/*sa. sin_addr. s_addr = 0xe0000001;*/ 
/* for a 8 bit subnet */ 

sa. sin_addr. s_addr = sa . sin_add r . s_add r | 0x000000ff ; 
f printf ( stderr, "Addr %x\n", sa . sin_add r . s_add r ) ; 
sa.sin_port = htons(port); 

res = sendto(sock, buf, numbytes, 0, (struct sockaddr *)&sa, sizeof(sa) 
); 

if (res < 0) 
{ 

perrorC'ntBroadcast" ) ; 

} 

close(sock) ; 
return(0) ; 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <fcntl.h> 
#include <nlist.h> 
#include <unistd.h> 
#ifdef SHASTRA4SUN5 
#include <stdlib.h> 
#endif 

/* 

* code to get load avergae.. sadly, /dev/kmem is not readable anymore 
*/ 

static void getLoadError ( ) ; 

#ifdef WANTTHIS 

#ifdef SHASTRA4IRIS 

#define KERNEL_FILE "/unix" 
#define KERNEL_MEMFILE "/dev/kmem" 
#define LOADAVGNDX 0 

#define KERN EL_LOAD_VARI ABLE "avenrun" 

extern void exit ( ) ; 

static struct nlist loadAvgNmList [ ] = { 

{ KERN EL_LOAD_VARI ABLE}, 

{NULL} 

}; 

static kernelMemFD; 
static long loadAvgSeekOf f set ; 
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void 

get Load Avg ( pLoadAvg ) 

double *pLoadAvg; 

{ 

long temp; 

if (loadAvgSeekOf f set == 0) { 

nlist ( KERNEL_FILE, loadAvgNmList ) ; 

if (loadAvgNmList [LOADAVGNDX] .n_type == 0 | | 

loadAvgNmList [LOADAVGNDX] .n_value == 0) { 

getLoadError ( "cannot get name list from", KERNEL_FILE) ; 

*pLoadAvg = 0.0; 

retu rn ; 

} 

loadAvgSeekOffset = loadAvgNmList [LOADAVGNDX] . n_value; 

} 

kernelMemFD = open ( KERN EL_MEM FILE, 0_RD0NLY) ; 
if (kernelMemFD < 0) { 

getl_oadError("cannot open", KERNEL_MEMFILE) ; 

*pLoadAvg = 0.0; 

return; 

} 

lseek( kernelMemFD, loadAvgSeekOffset, 0); 

(void) read ( kernelMemFD, (char *) &temp, sizeof ( long ) ) ; 

close(kernelMemFD) ; 

*pLoadAvg = (double) temp / 1024.0; 

return; 

} 

#endif /* SHASTRA4IRIS */ 

#ifdef SHASTRA4SUN4 

#define KERNEL_FILE "/vmunix" 
#define KERNEL_MEMFILE "/dev/kmem" 
#define LOADAVGNDX 0 

#define KERN EL_LOAD_VARI ABLE "_avenrun" 

extern void exit ( ) ; 

static struct nlist loadAvgNmList [ ] = { 

{ KERN EL_LOAD_VARI ABLE}, 

{NULL} 

}; 

static kernelMemFD; 
static long loadAvgSeekOffset; 



void 

get Load Avg (pLoad Avg) 

double *pLoadAvg; 

{ 

long temp; 
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if (loadAvgSeekOf f set == 0) { 

nlist ( KERNEL_FILE, loadAvgNmList ) ; 
if (loadAvgNmList [LOADAVGNDX] .n_type == 0 | | 
loadAvgNmList [LOADAVGNDX] .n_value == 0) { 
get LoadErTor( "cannot get name list from", KERNEL_FILE) ; 
*pLoadAvg = 0.0; 
return; 

} 

loadAvgSeekOffset = loadAvgNmList [LOADAVGNDX] . n_value; 

} 

kernelMemFD = open ( KERN EL_MEM FILE, 0_RD0NLY) ; 
if (kernelMemFD < 0) { 

getLoadErrorC'cannot open", KERNEL_MEMFILE) ; 

*pLoadAvg = 0.0; 

return; 

} 

lseek( kernelMemFD, loadAvgSeekOffset, 0); 

(void) read ( kernelMemFD, (char*) &temp, sizeof ( long ) ) ; 

close(kernelMemFD) ; 

*pLoadAvg = (double) temp / (1 « 8); 
return; 



#endif /* SHASTRA4SUN4 */ 



#endif /* WANTTHIS */ 

void 

get Load Avg ( pLoadAvg ) 

double *pLoadAvg; 



char tmpFilBuf [32] ; 

char tmpCmdBuf [64] ; 

FILE *loadFile; 

sprintf (tmpFilBuf , "/tmp/#load%d" , ( int ) getpid ( ) ) ; 
sprintf (tmpCmdBuf , "uptime | /usr/bin/awk '{print $10}' 

tmpFilBuf) ; 
if (system(tmpCmdBuf ) != 0) { 

perror("getLoadAvg( ) — system ( )" ) ; 

*pLoadAvg = 0.0; 

return; 

} 

if (access(tmpFilBuf , R_0K) == -1) { 
perror("getLoadAvg( ) — accessO"); 
*pLoadAvg = 0.0; 
return; 

} 

if ((loadFile = fopen(tmpFilBuf , " r" ) ) == NULL) { 
perror("getLoadAvg( ) — fopenO"); 
*pLoadAvg = 0.0; 
return; 
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} 

f scanf ( loadFile, "%lf", pLoadAvg); 
f close( loadFile) ; 
unlink(tmpFilBuf ) ; 
return; 



} 



static void 

getl_oadError(strl, str2) 

char *strl, *str2; 

{ 

fprintf (stderr, "getLoadO: %s %s\n", strl, str2); 
perror("getLoad( )") ; 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <unistd.h> 
#include <fcntl.h> 
#include <sys/signal. h> 
#include <sys/time.h> 

#include <shast ra/utils/list . h> 
#include <shast ra/network/asyncIO . h> 

#define STANDALONEnn 

struct list *aIOInl_ist; 
struct list *aI00utl_ist; 
struct list *aIOReplayOutl_ist ; 

static void (*aIOReadHandler) (Prot2(aI0Control*, char*) ) ; 
static char *aIOReadArg; 

static void (*aIOWriteHandler ) (Prot2(aI0Control*, char*) ) ; 
static char *aIOWriteArg ; 

static void handleAIO(Protl(aio_result_t *)); 
void 

clearPendingAIO( ) 
{ 

struct list_node *node; 
alOControl *pAI0Cntl; 

while (aIOInl_ist->head != NULL) { 
node = aIOInList->head; 
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pAIOCntl = (alOControl *) node->data; 

if (aiocancel(&pAIOCntl->resultAIO) == -1) { 

f printf ( stderr, "clearPendingAICK )->couldn 't cancel %lx\n", 
&pAIOCntl->resultAIO) ; 

} 

listDeleteThis(aIOInList, node); 
f ree(pAIOCntl->buf ) ; 
f ree(pAIOCntl) ; 
f ree(node) ; 

} 

while (aI00utList->head != NULL) { 
node = aI00utList->head; 
pAIOCntl = (alOControl *) node->data; 
if (aiocancel(&pAIOCntl->resultAIO) == -1) { 

f printf ( stderr, "clearPendingAIO( )->couldn 't cancel %lx\n", 
&pAIOCntl->resultAIO) ; 

} 

listDeleteThis(aIOOutList, node) ; 
f ree(pAIOCntl->buf ) ; 
f ree(pAIOCntl) ; 
f ree(node) ; 

} 

while (aIOReplayOutList->head != NULL) {/*no async in this*/ 
node = aIOReplayOutList->head; 
pAIOCntl = (alOControl *) node->data; 
UstDeleteThis(aIOReplayOutList, node) ; 
f ree(pAIOCntl->buf ) ; 
f ree(pAIOCntl) ; 
f ree(node) ; 

} 

} 

void 

registerAIOReadHandler ( f unc, arg ) 
void (*func) 0; 

char *arg; 

{ 

alOReadHandler = func; 
alOReadArg = arg; 

} 

void 

registerAIOWriteHandler(f unc, arg) 
void (*func) 0; 

char *arg; 

{ 

alOWriteHandler = func; 
alOWriteArg = arg; 

} 

void 

sigIOHandler( ) 
{ 
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aio_result_t *resultAI0; 
aio_result_t *aiowait(); 
struct timeval timeout; 
static int fFirst = 1; 

static int ctr; 

#ifdef DEBUG 

fprintf (stderr, "In siglOHandler call %d\n", ctr); 
#endif /* DEBUG */ 

memset (&timeout, 0, sizeof ( st ruct timeval)); 
while ((resultAIO = aiowait (&timeout ) ) != 0) { 
if (resultAIO == (aio_result_t *) - 1) { 
if (fFirst) { 

perror("aiowait( )") ; 

} 

break; 
} else { 
#ifdef DEBUG 

fprintf (stderr, "resultAIO = %lx\n", resultAIO); 
#endif /* DEBUG */ 

handleAIO( resultAIO) ; 

} 

fFirst = 0; 

} 

/* poll returned null */ 
#ifdef DEBUG 

fprintf (stderr, "Out siglOHandler call %d\n", ctr++); 
#endif /* DEBUG */ 

} 

static void 
handleAIO( resultAIO) 

aio_result_t *resultAIO; 

{ 

aio_result_t *aiowait ( ) ; 

alOControl *pAIOInCntl, *pAIOOutCntl; 

#ifdef DEBUG 

fprintf (stderr, "In handleAIO\n" ) ; 
#endif /* DEBUG */ 

if (aIOInl_ist->head != NULL) { 

pAIOInCntl = (alOControl *) aIOInList->head->data ; 
} else { 

pAIOInCntl = NULL; 

} 

if (aIOOutList->head != NULL) { 

pAIOOutCntl = (alOControl *) aIOOutList->head->data; 
} else { 

pAIOOutCntl = NULL; 

} 

if (pAIOInCntl && (resultAIO == &pAIOInCntl->resultAIO) ) { 
if ( resultAIO->aio_return == -1) { 
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extern int errno; 
errno = resultAIO->aio_errno; 
perrorC'aiowait ( )->read( )") ; 
} else { 
#ifdef DEBUG 

fprintf (stderr, "handleAICK )-> Read()-> %d of %d of %lx\n", 
resultAIO->aio_return, pAIOInCntl->buf Size, resultAIO); 

#endif /*DEBUG*/ 

pAIOInCntl->buf Size = resultAIO->aio_return; 
if (alOReadHandler != NULL) { 

(*aIOReadHandler) ( pAIOInCntl, alOReadArg ) ; 

} 

} 

} else if (pAIOOutCntl && (resultAIO == &pAIOOutCntl->resultAIO) ) { 
if ( resultAIO->aio_return == -1) { 
extern int errno; 
errno = resultAIO->aio_errno; 
perrorC'aiowait ( )->write( )") ; 
} else { 
#ifdef DEBUG 

fprintf (stderr, "handleAICK )-> Write()-> %d of %d of %lx\n", 
resultAIO->aio_return, pAI00utCntl->buf Size, resultAIO); 

#endif /*DEBUG*/ 

if (alOWriteHandler != NULL) { 

(*aIOWriteHandler) ( pAIOOutCntl, alOWriteArg ) ; 

} 

} 

} else { 

fprintf ( stderr, "handleAIO( )-> non-requested return\t"); 
if (pAIOInCntl) { 

fprintf (stderr, "In head is %lx\t", &pAIOInCntl->resultAIO) ; 

} 

if (pAIOOutCntl) { 

fprintf (stderr, "Out head is %lx\t", &pAIOOutCntl->resultAIO) ; 

} 

fprintf ( stderr, "\n"); 

} 

#ifdef DEBUG 

fprintf (stderr, "Out handleAIO\n" ) ; 
#endif /* DEBUG */ 

} 

void 

setupSigIOHandler(f unc) 

void (*func) 0; 

{ 

#if defined SHASTRA4IRIS | | defined SHASTRA4SUN5 

sigset(SIGIO, func); 
#else 

#ifdef SHASTRA4HP 

signaKSIGIO, func); 
#else/* SHASTRA4SUN4 */ 

struct sigvec vec; 
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/* Set up SIGIO handler to flush output */ 
vec . sv_handler = func; 
vec. sv_mask = 0; 
vec.sv_flags = 0; 

(void) sigvec(SIGIO, &vec, (struct sigvec *) NULL); 
#endif /* SHASTRA4IRIS */ 

#endif 
} 



#if defined SHASTRA4IRIS | | defined SHASTRA4HP 

aio_result_t * 
aiowait ( ) 



int 

aioread ( ) 



int 

aiowrite( ) 



int 

aiocanceK ) 



#endif /* SHASTRA4IRIS */ 



#ifdef STANDALONE 
#define BUFSIZE 2000000 

int inFd = 0; 

int outFd = 1; 



if ((outFd = open("/tmp/try", 0_WR0NLY | 0_TRUNC | 0_CREAT) ) < 0) { 
perror("open( ) ->/tmp/t ry" ) ; 
exit(-l) ; 

} 

if ((inFd = open ( "/tmp/t ry2" , 0_RD0NLY) ) < 0) { 



main( ) 
{ 



int 

void 

void 



tmp; 

testAIOReadHandler( ) ; 
testAIOWriteHandler( ) ; 
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perTor("open( )->/tmp/try2" ) ; 
exit(-l) ; 

} 

setupSigIOHandler( siglOHandler) ; 
registerAIOReadHandler(testAIOReadHandler, NULL) ; 
registerAIOWriteHandler(testAIOWriteHandler, NULL) ; 

alOInList = UstMakeNew( ) ; 
alOOutList = UstMakeNew( ) ; 

testAIOReadHandler(NULL, NULL); 

f printf ( stderr, "Waiting for aio to end\n"); 

scanf("%d", &tmp); 



testAIOReadHandler (pAIOCntl, a rg) 
alOControl *pAIOCntl; 
char *arg; 

{ 

static int fNotFirst = 0; 

struct list_node *node; 
alOControl *pAIOCntlNew; 
alOControl *pAIOCntlOld ; 



#ifdef DEBUG 

fprintf (stderr, "testAIOReadHandler, fNot =%d\n", fNotFirst); 
#endif /* DEBUG */ 

if (fNotFirst) { 

/* advance read ptr in input */ 
IseeMinFd, pAIOCntl->buf Size, SEEK_CUR) ; 
pAIOCntlOld = (alOControl *) aIOInList->head->data; 
if (pAIOCntl != pAIOCntlOld) { 

fprintf (stderr, "testAIOReadHandler( )->bad pAIOCntl %lx, %lx\n" 

pAIOCntl, pAIOCntlOld); 

} 

/* this read is done, remove */ 
node = aIOInList->head; 
listDeleteThis (alOInList, node); 
f ree(node) ; 
node = NULL; 

if (pAIOCntl->resultAIO.aio_return == 0) { 

/* last read returns 0 , all read jobs done */ 
retu rn ; 

} 

if (aIOOutList->head == NULL) { 

/* out queue is empty, initiate a write */ 
node = listMakeNewNode ( ) ; 

pAIOCntlNew = (alOControl *) malloc ( sizeof (alOControl) ) ; 
memset(pAIOCntlNew, 0, sizeof (alOControl) ) ; 
pAIOCntlNew->buf = pAIOCntl->buf ; 



Page 6 of 8 



asynclO.c 



7/5/1 1 2:50 PM 



pAIOCntlNew->bufSize = pAI0Cntl->buf Size; 
node->data = (char *) pAIOCntlNew; 
f ree(pAIOCntl) ; 
pAIOCntl = NULL; 

UstlnsertAtTaiKalOOutList, node) ; 

#ifdef DEBUG 

fprintf (stderr, "Init'g Write\t" ) ; 
#endif /* DEBUG */ 

if (aiowrite(out_Fd, pAIOCntlNew->buf , pAIOCntlNew->buf Size, 

0, SEEK_CUR, &pAIOCntlNew->resultAIO) < 0) { 

perror("aiowrite( )") ; 

} 

#ifdef DEBUG 

fprintf (stderr, "Init'd resultAIO = %lx\n", 
&pAIOCntlNew->resultAIO) ; 
#endif /* DEBUG */ 

} else { 

/* write in progress., add to queue */ 
node = listMakeNewNode( ) ; 

pAIOCntlNew = (alOControl *) malloc ( sizeof (alOControl) ) ; 
memset ( pAIOCntlNew, 0, sizeof (alOControl) ) ; 
pAIOCntlNew->buf = pAIOCntl->buf ; 
pAIOCntlNew->bufSize = pAIOCntl->buf Size; 
node->data = (char *) pAIOCntlNew; 

f ree(pAIOCntl) ; 
pAIOCntl = NULL; 

listlnsertAtTaiKalOOutList, node) ; 

} 

} 

node = listMakeNewNode( ) ; 

pAIOCntl = (alOControl *) malloc ( sizeof (alOControl) ) ; 
memset (pAIOCntl, 0, sizeof (alOControl) ) ; 
pAIOCntl->buf = (char *) malloc ( BUFSIZE) ; 
pAIOCntl->bufSize = BUFSIZE; 

node->data = (char *) pAIOCntl; 
listlnsertAtTaiKalOInList, node) ; 

fNotFirst = 1; 
#ifdef DEBUG 

fprintf (stderr, "Init'g Read\t"); 
#endif /* DEBUG */ 

if (aioread(inFd, pAIOCntl->buf , pAIOCntl->buf Size, 0, SEEK_CUR, 
&pAIOCntl->resultAIO) < 0) { 
perror("aioread( )") ; 

} 

#ifdef DEBUG 

fprintf (stderr, "Init'd resultAIO = %lx\n", 

&pAIOCntl->resultAIO) ; 
fprintf (stderr, "Out testAIOReadHandler\n" ) ; 
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#endif /* DEBUG */ 

} 

void 

testAIOWriteHandler (pAIOCntl, a rg) 
alOControl *pAI0Cntl; 
char *arg; 

{ 

struct list_node *node; 
alOControl *pAIOCntlOld ; 

#ifdef DEBUG 

fprintf (stderr, "In testAIOWriteHandler\n" ) ; 
#endif /* DEBUG */ 

pAIOCntlOld = (alOControl *) aIOOutl_ist->head->data; 
if (pAIOCntl != pAIOCntlOld) { 

fprintf (stderr, "testAIOWriteHandler ( )->bad pAIOCntl %lx, %lx\n", 
pAIOCntl, pAIOCntlOld); 

} 

node = aIOOutl_ist->head; 

/* advance write ptr in output */ 

IseeMoutFd, pAIOCntl->resultAIO. aio_return, SEEK_CUR) ; 
/* this write is done, remove from list */ 
listDeleteThis(aIOOutl_ist, node) ; 

f ree(pAIOCntl->buf ) ; 
f ree(pAIOCntl) ; 
f ree(node) ; 
node = NULL; 
pAIOCntl = NULL; 

if (aIOOutList->head != NULL) { 
node = aIOOutList->head; 
pAIOCntl = (alOControl *) node->data; 
#ifdef DEBUG 

fprintf ( stderr, "Init'g Write\t"); 
#endif /* DEBUG */ 

if (aiowrite(outFd, pAIOCntl->buf , pAIOCntl->buf Size, 0, SEEK_CUR, 
&pAIOCntl->resultAIO) < 0) { 
perror("aiowrite( )") ; 

} 

#ifdef DEBUG 

fprintf ( stderr, "Init'd resultAIO = %lx\n", 
&pAIOCntl->resultAIO) ; 
#endif /* DEBUG */ 

} 

#ifdef DEBUG 

fprintf (stderr, "Out testAIOWriteHandler\n" ) ; 
#endif /* DEBUG */ 

} 

#endif /* STANDALONE */ 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <errno.h> 

#include <shast ra/utils/list . h> 
#include <shast ra/utils/hash . h> 

#include <shast ra/datacomm/shast raldH. h> 

#include <shast ra/network/hostMgr . h> 
#in elude <shast ra/ net work/ server. h> 
#in elude <shast ra/network/mplex. h> 
#in elude <shast ra/network/mplexP. h> 

extern char *readSt ring ( Protl ( int ) ) ; 

#define DEBUGxx 

/* 

* hostSendRawRequest ( ) 
*/ 
int 

hostSendRawRequest(pHost, req) 
hostData *pHost; 
char *req; 

{ 

int retVal; 

if((pHost == NULL) || (pHost->fStatus == shaError)){ 
return -1; 
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} 

retVal = cmSendString(pHost->fdSocket, req); 
if(retVal == -1){ 

pHost->f Status = shaError; 

} 

return retVal; 



* hostSendQueuedRequest ( ) 
*/ 
int 

hostSendQueuedRequest (pHost, req, arg) 
hostData *pHost; 
char *req; 
char *arg; 

{ 

int retVal; 

if((pHost == NULL) || (pHost->fStatus == shaError) ){ 
return -1; 

} 

hostQueueHostRequest(pHost, req, arg); 
retVal = cmSendString(pHost->fdSocket, req); 
if (retVal == -1){ 

pHost->f Status = shaError; 

} 

return retVal; 



* hostSendMatchedRequestO — NOT COMPLETE 

*/ 
int 

hostSendMatchedRequest(pHost, req, arg) 
hostData *pHost; 
char *req; 
char *arg; 

{ 

int retVal; 

if((pHost == NULL) || (pHost->fStatus == shaError) ){ 
return -1; 

} 

hostQueueHostRequest(pHost, req, arg); 
retVal = cmSendString(pHost->fdSocket, req); 
if (retVal == -1){ 

pHost->f Status = shaError; 

} 

return retVal; 



/* 
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* hostQueueHostRequest ( ) 
*/ 

void 

hostQueueHostRequest ( pHost, req, arg) 
hostData *pHost; 
char *req; 

char *arg; /* use this to store info needed on return */ 

{ 

struct list_node *tmp_node; 
hostRequest *hReq; 

hReq = (hostRequest *) malloc ( sizeof ( hostRequest )) ; 
tmp_node = listMakeNewNode( ) ; 
hReq->request = req; 
hReq->arg = arg; 
tmp_node->data = (char *) hReq; 
listInsertAtTail(pHost->sendl_ist, tmp_node) ; 
#ifdef DEBUG 

f printf ( stderr, "hostQueueHostRequest ( )->inserted %s on %ld!\n", 
req, pHost); 
#endif /* DEBUG */ 

} 

/* 

* hostMapFD2Host(pHostl_ist,fd) 

*/ 

hostData * 
hostMapFD2Host(pHostl_ist, fd) 

struct list *pHostl_ist; 

int fd; 

{ 

struct list_node *tmp_node; 
hostData *pHost; 

for (tmp_node = pHostl_ist->head ; tmp_node != NULL; tmp_node = tmp_node-> 
next) { 

pHost = (hostData *) tmp_node->data ; 
if (pHost->fdSocket == fd) { 
return (pHost); 

} 

} 

return (NULL); 

} 

int 

shaClientHandler(fd, arg, dummy) 
int fd; 
char *arg; 
unsigned long *dummy; 

{ 

int fFound, i; 

char *buf; 
hostRequest *hReq; 
char *req; 
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hostData *pHost; 
shaCmdData *pCmdData; 

cmCommand *pCmds; /* the outbound cmd table */ 

cmCommand *pCmdsIn; /* the inbound cmd table */ 

struct cmCommand *pCmd; 
struct he *phe; 
struct list_node *node; 

/* inbounds can occur in 2 places., when req pending/ not req pending */ 
pCmdData = mplexTab [fd] . pCmdData; 
pCmds = pCmdData->pCmdTab; 
pCmdsIn = pCmdData->pCmdTabIn; 
pHost = mplexTabffd] .pHost; 

/* 

pHost = hostMapFD2Host(pCmdData->hostl_ist, fd); 

*/ 

if (pHost == NULL) { 

fprintf (stderr, " shaClientHandler ( ) ->No Host Data for Connection ! \n" ) ; 
return -1; 

} 

buf = cmReceiveString(fd) ; 
if (buf == NULL) { 

fprintf ( stderr, "shaClientHandler(%d)->Peer %ld (%s) closed connection\ 
n" , 

fd, pHost->lSIDTag, ( pHost->pSId?pHost->pSId->nmHost : "host" ) ) ; 
if (mplexErrHandler ) { 

(*mplexErrHandler) (fd); 

} 

else{ 

mplexUnRegisterChannel(fd) ; 

} 

pHost->f Status = shaError; 
return -1; 
} else { 

int n = st rlen ( buf ) ; 

int fBlank = 1; 

for (i = 0; i < n; i++) { 

if ( !isspace(buf [i] ) ) { 
fBlank = 0; 
break; 

} 

} 

if (fBlank) { /* blank string., avoid!! */ 
f ree(buf ) ; 
retu rn ; 

} 

#ifdef DEBUG 

fprintf (stderr, "shaClientHandler( )->Read %d (%s)\n", 
strlen(buf), buf); 
#endif /* DEBUG */ 

if (pHost->sendList->head == NULL) { 
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/* maybe this is an inbound command! */ 
int retVal; 

retVal = cmNewSearchNExecute(fd, buf, pCmdData->htCmdsIn, arg); 

/* 

* retVal = cmSearchNExecute(fd, buf , pCmdsIn, 

* pCmdData->nCmdsIn, arg) ; 
*/ 

if (retVal == -1) { 
fprintf (stderr, " shaClientHandler ( ) -Unintelligible / Unsolicited Input 
: %s!\n" 
,buf ) ; 

} 

f ree(buf ) ; 
return retVal; 

} 

/* read ACK or ERROR .. */ 
if (strcmp(buf, ERROR_STRING) == 0) { 
/* ERROR — message */ 

hReq = (hostRequest *) pHost->sendl_ist->head->data; 
req = hReq->request ; 

fprintf (stderr, "shaClientHandler( )->Error On %s!\n", req); 

node = pHost->sendl_ist->head ; 

listDeleteThis(pHost->sendl_ist, node) ; 

f ree(buf ) ; 

f ree(hReq) ; 

f ree(node) ; 

return -1; 

} else if (strcmp(buf, ACK_STRING) == 0) { 

/* 

* ACK — look in queue for that fd(??) and know what 

* response is for 
*/ 

hReq = (hostRequest *) pHost->sendl_ist->head->data; 
req = hReq->request ; 
#ifdef WANT 

fFound = 0; 

for (i = 0; i < pCmdData->nCmds ; i++) { 
if (strcmp(pCmds [i] .command, req) == 0) { 

fFound = 1; 
#ifdef DEBUG 

fprintf (stderr, "%s\n", pCmds [i] . helpmsg ) ; 
#endif /* DEBUG */ 

(*pCmds [i] . function) (fd, (char*) hReq->arg); 

break; 

} 

} 

if ( IfFound) { 

fprintf (stderr, "shaClientHandler( )->Unknown Request - %s!\n", 

req) ; 
return (-1); 
} 

#endif /* WANT */ 

phe = htl_ookup(pCmdData->htCmds, req); 
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if (phe == NULL) { 
f printf ( stderr, " shaClientHandler ( ) ->Unknown Saved Request - %s!\n", 

req) ; 
return (-1); 

} 

pCmd = (struct cmCommand *) phe->data; 
(*pCmd->f unction) (fd, (char *) hReq->arg); 
node = pHost->sendList->head ; 
listDeleteThis(pHost->sendList, node) ; 
#ifdef DEBUG 

fprintf (stderr, "shaClientHandler( )->acked and deleted %s!\n", req); 
#endif /* DEBUG */ 

f ree(buf ) ; 
f ree(hReq) ; 
f ree(node) ; 

/* delete req from the queue */ 
} else { /* maybe this is an inbound command! */ 
int retVal; 

retVal = cmNewSearchNExecute(fd, buf, pCmdData->htCmdsIn, arg); 

/* 

* retVal = cmSearchNExecute(fd, buf , pCmdsIn, 

* pCmdData->nCmdsIn, a rg ) ; 

*/ 

#ifdef DEBUG 

fprintf ( stderr, "shaClientHandler( )->inbound %s!\n", req); 
#endif /* DEBUG */ 

f ree(buf ) ; 
if (retVal == -1) { 
fprintf (stderr, "shaClientHandler( )->Unintelligible Response : %s!\n" 
,buf ) ; 

} 

return -1; 

} 

} 

return 0; 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <errno.h> 
#include <poll.h> 
#include <sys/time.h> 
#ifdef SHASTRA4SUN5 
#include <sys/resource. h> 
#endif 

#include <sys/types . h> 
#include <sys/socket . h> 
#include <sys/un.h> 
#include <netinet/in . h> 
#include <netdb.h> 
#include <malloc.h> 



#in elude <shast ra/network/hostMg r . h> 
#include <shast ra/network/ server. h> 
#include <shast ra/network/serverP. h> 
#include <shast ra/network/mplexP. h> 
#include <shast ra/network/mplex. h> 
#include <shast ra/network/sharedMem. h> 
#include <shastra/network/rpc.h> 

#in elude <shastra/utils/dllist.h> 



#define MYBUFSIZE /*32768 32768, 65536 , 102400*/ 131072 
#define USE_STREAMS /* CHECK same flag in mplex, server */ 
#define DEFAULTMPLEXTIMEOUT 3600000 /* lhr */ 
int fDebug = 0; 
mplex *mplexTab; 
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static struct pollfd *mplexPollFds ; 
static struct dllist *mplexTimerl_ist ; 
static int iMplexTimeBase; 
static int iNChannels = 0; 

static int iMplexTimeout = DEFAULTMPLEXTIMEOUT; 
static int iMplexPollTimeout ; 
static int iMplexTotalldle = 0; 
static int mplexMaxChannels = 0; 

static Widget wgMplexTop; 
static XtAppContext xacMplex; 

int (*mplexErrHandler) ( Protl ( int ) ) ; 
int (*mplexIdleHandler) (ProtKchar*) ) ; 
static int mplexDefaultErrHandler(ProtKint) ) ; 
static int mplexDefaultIdleHandler(Protl(char*) ) ; 

static void mplexDef aultReadHandler ( Prot3 ( cha r*, int *, unsigned long*)); 
static void mplexDefaultWriteHandler(Prot3(char*, int *, unsigned long*)); 
static void mplexWorkTheTimer ( ) ; 

#ifdef SHASTRA4HP 

#include <sys/param. h> /* for HP's which don't have getdtablesize */ 

int 

getdtablesize( ) 
{ 

return NOFILE; 

} 

#endif /* getdtablesize */ 

#ifdef SHASTRA4SUN5 
int 

getdtablesize( ) 
{ 

int res; 

rlim_t rlim_cur; 
rlim_t rlim_max; 
struct rlimit rip; 

res = getrlimit(RLIMIT_NOFILE, &rlp); 
res = ( int) rip. rlim_cur; 
return ( res) ; 

} 

#endif /* getdtablesize */ 

int 

mplexlnit (wg, xac) 
Widget wg; 
XtAppContext xac; 

{ 

struct timeval tp; 
struct timezone tzp; 

wgMplexTop = wg; 
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xacMplex = xac; 

if (mplexTab != NULL){ 
return; 

} 

gettimeof day(&tp, &tzp); 
mplexMaxChannels = getdtablesize( ) ; 
#ifdef DEBUG 

f printf ( stderr, "mplexlnit ( )-> max channels = %d\n", mplexMaxChannels); 
#endif 

mplexTab = (mplex *) calloc(mplexMaxChannels, sizeof (mplex) ) ; 
mplexPollFds = (struct pollfd *) calloc(mplexMaxChannels, 

sizeof (struct pollfd)); 
mplexEr rHandler = mplexDef aultErrHandler; 
mplexTimerList = dllistMakeNew( ) ; 
iMplexTimeout = DEFAULTMPLEXTIMEOUT; 
iMplexTimeBase = tp.tv_sec; 
iMplexTotalldle = 0; 

if (xacMplex) 
{ 

mplexWorkTheTimer( ) ; 

} 

return 0; 



shaCmdData * 
mplexGetCmdData(fd) 

int fd; 

{ 

if ((fd >= 0) && (mplexTabffd] .flnUse != MPLEX_FREE) ) { 

return mplexTab [fd] . pCmdData; 
} else { 

f printf ( stderr, "mplexGetCmdData ( )->Bad Channel Number %d\n", fd); 
return NULL; 

} 

} 

int 

mplexSetCmdData(fd, pCmdData) 
int fd; 
shaCmdData *pCmdData; 

{ 

if ((fd >= 0) && (mplexTabffd] .flnUse != MPLEX_FREE) ) { 

mplexTab [fd] . pCmdData = pCmdData; 

return 1; 
} else { 

f printf ( stderr, "mplexSetCmdData ( )->Bad Channel Number %d\n", fd); 
return 0; 

} 

} 
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hostData * 
mplexGetHostData(fd) 
int fd; 

{ 

if ((fd >= 0) && (mplexTabffd] .flnUse != MPLEX_FREE) ) { 

return mplexTab [f d] . pHost ; 
} else { 

fprintf (stderr, "mplexGetHostData ( ) ->Bad Channel Number %d\n", fd); 
return NULL; 

} 

} 

int 

mplexSetHostData(fd, pHost) 
int fd; 
hostData *pHost; 

{ 

if ((fd >= 0) && (mplexTabffd] .flnUse != MPLEX_FREE) ) { 

mplexTab [fd] . pHost = pHost; 

return 1; 
} else { 

fprintf ( stderr, "mplexSetHostData ( ) ->Bad Channel Number %d\n", fd); 
return 0; 

} 

} 

char * 
mplexGetChannelReadArg (f d) 
int fd; 

{ 

if ((fd >= 0) && (mplexTabffd] .flnUse != MPLEX_FREE) ) { 

return mplexTab [fd] . readArg; 
} else { 

fprintf ( stderr, "mplexGetChannelReadArg () ->Bad Channel Number %d\n", fd 
); 

return NULL; 

} 

} 

int 

mplexSetChannelReadArg(fd, arg) 
int fd; 
char *arg; 

{ 

if ((fd >= 0) && (mplexTabffd] .flnUse != MPLEX_FREE) ) { 

mplexTab [fd] . readArg = arg; 

return 1; 
} else { 

fprintf ( stderr, "mplexSetChannelReadArg ( ) ->Bad Channel Number %d\n", fd 
); 

return 0; 

} 

} 
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char * 
mplexGetChannelWriteArg ( f d ) 
int fd; 



{ 

if ((fd >= 0) && (mplexTabffd] .flnUse != MPLEX_FREE) ) { 

return mplexTab [f d] .writeArg; 
} else { 

fprintf (stderr, "mplexGetChannelArg ( )->Bad Channel Number %d\n", fd); 
return NULL; 

} 

} 



int 

mplexSetChannelWriteArg(fd, arg) 
int fd; 
char *arg; 

{ 

if ((fd >= 0) && (mplexTabffd] .flnUse != MPLEX_FREE) ) { 

mplexTab [fd] .writeArg = arg; 

return 1; 
} else { 

fprintf ( stderr, "mplexSetChannelWriteArg ( )->Bad Channel Number %d\n", 

fd); 
return 0; 

} 

} 

static void 

mplexDefaultReadHandler(arg, pfd, plld) 
char* arg; 
int *pfd; 

unsigned long* plld; 

{ 

int i; 
i = *pfd; 

if ( (mplexTab [i] .fRead) && (mplexTab [i] . readHandler !=NULL)) 
{ 

(*mplexTab [i] . readHandler) (mplexTab [i] . iSocket , mplexTab [i] . readArg) ; 
#ifdef USE_STREAMS 

while (mplexTab [i] . inSt ream && (mplexTab [i] . inSt ream->_cnt > 0)) 
{ 

(*mplexTab [i] . readHandler) (mplexTab [i] . iSocket, mplexTab [i] . readArg) ; 

} 

#endif /* USE_STREAMS */ 

} 

} 

static void 

mplexDef aultWriteHandler(arg, pfd, plld) 
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char* arg; 
int *pfd; 

unsigned long* plld; 

{ 

int i; 

i = *pfd; 

#ifdef SHASTRA4IRIS 

if (mplexTab [i] . writeHandler != NULL) 
#else 

if ( (mplexTab [i] .fWrite) && (mplexTab [i] .writeHandler !=NULL)) 
#endif 
{ 

(*mplexTab [i] .writeHandler) (mplexTab [i] . iSocket, mplexTab [i] .writeArg, 
mplexTab [i] .mChanld) ; 
#ifdef USE_STREAMS 

while (mplexTab [i] . inSt ream && (mplexTab [i] . inSt ream->_cnt > 0)) { 

(*mplexTab [i] .writeHandler) (mplexTab [i] . iSocket, mplexTab [i] .writeArg 

mplexTab [i] .mChanld) ; 

} 

#endif /* USE_STREAMS */ 

} 

} 

int 

mplexRegisterChanneK f d, handler, pCmdData, arg) 
int fd; 
int (*handler) (); 

shaCmdData *pCmdData; 
char *arg; 

{ 

if ((fd >= 0) && (mplexTab [fd] .flnUse == MPLEX_FREE) ) { 
memset (&mplexTab [f d] , 0, sizeof (mplex) ) ; 

mplexTab [fd] . pCmdData = pCmdData; 

if (pCmdData != NULL){ /*shaChannel*/ 

if (pCmdData->htCmds == NULL) { 
cmlnitializeCmdData(pCmdData) ; 

} 

if (mplexSetFilePtrs(fd) < 0) { 
return -1; 
} 

mplexTab [fd] .inBuf = ma Hoc (MYBUFSIZE + 16); 
if (mplexTabffd] .inBuf == NULL) { 
f printf ( stderr, "mplexRegisterChanneK )->can 1 t malloc inBuf !\n"); 
} 

mplexTabffd] .outBuf = malloc (MYBUFSIZE + 16); 
if (mplexTabffd] .outBuf == NULL) { 
fprintf (stderr, "mplexRegisterChanneK )->can 1 t malloc outBuf !\n"); 
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} 

/* 

f printf ( stderr, M mplexRegisterChannel(%d)->inBuf =%lx([0]=%c, [%d]=%c, \ 

OutBuf=%lx ([0]=%c, [%d]=%c\n", 

fd, 

mplexTab [fd] . inBuf , mplexTab [fd] . inBuf [0] , 
MYBUFSIZE-1, mplexTab [fd] . inBuf [MYBUFSIZE-1 ] , 
mplexTab [fd] .outBuf , mplexTabffd] .outBuf [0] , 
MYBUFSIZE -1, mplexTabffd] .outBuf [MYBUFSIZE-1] ); 

*/ 

if (setvbuf (mplexInStream(fd) , mplexTab [fd] . inBuf , _I0FBF, MYBUFSIZE) 
) { 

f printf ( stderr, 

"mplexRegisterChanneK )->couldn 1 t setvbuf inBuf !\n"); 

} 

if (setvbuf (mplexOutStream(fd) , mplexTab [fd] . outBuf , _I0FBF, 
MYBUFSIZE)) { 
fprintf (stderr, 

"mplexRegisterChanneK )->couldn 1 t setvbuf outBuf !\n"); 

} 

mplexTab [fd] . pShmlnfoIn = shmlnf oCreate( ) ; 
mplexTab [fd] . pShmlnfoOut = shmlnf oCreate () ; 

} 

mplexTab [fd] . iSocket = fd; 
mplexTab [fd] . readHandler = handler; 
mplexTabffd] .fRead = 1; 
mplexTab [fd] . readArg = arg; 

mplexTabffd] .flnUse = MPLEXJJSE; 
iNChannels++; 

if(xacMplex != NULL) 
{ 

#ifdef NVERMINDMENOW 

mplexTab [fd] . IChanld = 
XtAppAddlnput (xacMplex, fd, 

(XtPointer) XtlnputReadMask , 

mplexDef aultReadHandler, (XtPointer)arg) ; 

mplexTab [fd] .mChanld = 
XtAppAddlnput (xacMplex, fd, 

(XtPointer) XtlnputWriteMask, 
mplexDef aultWriteHandler, (XtPointer) a rg ) ; 
#ifdef N0_SHASTRA4HP 

mplexTab [fd] . rChanld = 
XtAppAddlnput (xacMplex, fd, 

(XtPointer) XtlnputExceptMask, 

mplexDef aultReadHandler, (XtPointer)arg) ; 

#endif 
#endif 
} 

else 
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{ 

mplexTab [f d] . IChanld = mplexGetUniqueld ( ) ; 

} 

} else { 

fprintf (stderr, "mplexRegisterChanneK )-> Bad fd = %d\n", fd); 
return -1; 

} 

return 0; 



mplexUnRegisterChanneK f d ) 
int fd; 

{ 

/* 

fprintf ( stderr, "mplexUnRegisterChannel(%d)\n", fd); 
*/ 

if ((fd >= 0) && (mplexTab [fd] .flnUse != MPLEX_FREE) ) { 
iNChannels — ; 

if (mplexResetFilePtrs(fd) < 0) { 
/* mplexTab [fd] .flnUse = MPLEX_ERR; */ 

} 

if (mplexTabffd] . inBuf ) { 
free (mplexTab [f d] . inBuf ) ; 

} 

if (mplexTabffd] .outBuf) { 
free (mplexTab [f d] . outBuf ) ; 

} 

if (mplexTab [fd] . pShmlnfoIn) { 

shMemDis connect (mplexTab [fd] . pShmlnfoIn) ; 
free (mplexTab [f d] . pShmlnfoIn) ; 

} 

if (mplexTab [fd] . pShmlnfoOut) { 

shMemDis connect (mplexTab [f d ] . pShmlnf oOut ) ; 
free (mplexTab [f d] . pShmlnfoOut) ; 

} 

if(xacMplex != NULL){ 
if (mplexTabffd] .IChanld) 
{ 

XtRemovelnput (mplexTab [fd] . IChanld) ; 

} 

if (mplexTab [fd] .mChanld) 
{ 

XtRemovelnput (mplexTab [fd] .mChanld) ; 

} 

#ifdef N0_SHASTRA4HP 

XtRemovelnput (mplexTab [fd] . rChanld) ; 

#endif 
} 

memset (&mplexTab [f d] , 0, sizeof (mplex) ) ; 
mplexTab [fd] . iSocket = -1; 
shutdown(fd, 2); 
close(fd) ; 
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mplexTabffd] .flnUse = MPLEX_FREE; 
} else { 
return -1; 

} 

return 0; 



int 

mplexMain (f lushFunc) 

int (*f lushFunc) 0; 

{ 

int retval; 

if(xacMplex != NULL){ 
XtAppMainLoop(xacMplex) ; 
return; 

} 

iMplexPollTimeout = iMplexTimeout ; 
while (1) { 

retval = mplexPoll ( iMplexPollTimeout ) ; 
if (retval == 0) { 

mplexTimeoutHandler ( ) ; 
} else { 

iMplexTotalldle = 0; 
mplexTimerTicM ) ; 

} 

if (flushFunc != NULL) { 
f lushFunc ( ) ; 

} 

} 

/* NOTREACHED */ 

} 

int 

mplexSelect (timeVal) 

int timeVal; 

{ 

int retval; 
int i; 
int n ; 

int nDone; 

fd_set iReadMask, iWriteMask, iExcepnMask; 

struct timeval timeout; 

FD_ZERO(&iReadMask) ; 
FD_ZERO(&iWriteMask) ; 
FD_ZERO(&iExcepnMask) ; 

for (i = 0, n = 0; (i < mplexMaxChannels ) && (n < iNChannels); i++) { 
if (mplexTabfi] .flnUse == MPLEXJJSE) { 
n++; 

if (mplexTab [i] . fWrite) { /* WriteFlag */ 
FD_SET(mplexTab [i] . iSocket, &iWriteMask) ; 
} 
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if (mplexTab [i] .fRead) { 
FD_SET(mplexTab [i] . iSocket, &iReadMask) ; 
} 

} 

} 

if (fDebug) { 

fprintf (stderr, "before rmask : %ld, wmask : %ld, xmask : %ld\n", 
iReadMask.fds_bits [0] , 
iWriteMask.fds_bits [0] , 
iExcepnMask. f ds_bits [0] ) ; 

} 

if (timeVal > 0) { 

memset ( ( cha r *) &timeout, 0, sizeof (timeout) ) ; 

timeout . tv_sec = timeVal / 1000; 

timeout. tv_usec = (timeVal % 1000) * 1000; 

} 

if ((retval = select (mplexMaxChannels + 1, &iReadMask, &iWriteMask, 
&iExcepnMask, 

((timeVal > 0) ? (&timeout) : NULL))) < 0) { 
extern int errno; 
if (errno != EINTR) { 
perror("select( )") ; 

} 

return retval; 

} 

if (retval == 0) { /* timed out */ 

return retval; 
} else { 

if (fDebug) { 

fprintf (stderr, "Sel'd %d descriptors\n" , retval); 

} 

} 

if (fDebug) { 

fprintf ( stderr, "selected rmask : %ld, wmask : %ld, xmask : %ld\n", 
iReadMask.fds_bits [0] , iWriteMask. f ds_bits [0] , 
iExcepnMask. fds_bits [0] ) ; 

} 

nDone = 0; 

for (i = 0, n = 0; (i < mplexMaxChannels) && 

(n < iNChannels) && (nDone < retval); i++) { 
if (mplexTabfi] .flnUse == MPLEXJJSE) { 
n++; 

if (mplexTabfi] .fWrite && FD_ISSET(mplexTab [i] . iSocket, &iWriteMask) 
&& 

(mplexTab [i] . writeHandler !=NULL)) { 
(*mplexTab [i] .writeHandler) (mplexTab [i] . iSocket, mplexTab [i] .writeArg, 
mplexTab [i] . IChanld ) ; 

nDone++; 
} 

else if (mplexTabfi] .fRead && FD_ISSET(mplexTab [i] . iSocket, & 
iReadMask) 

&& (mplexTabfi] . readHandler !=NULL)) { 
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(*mplexTab [i] . readHandler) (mplexTab [i] . iSocket, mplexTab [i] . readArg, 
mplexTab [i] . IChanld ) ; 

#ifdef USE_STREAMS 

while (mplexTab [i] . inSt ream && (mplexTab [i] . inSt ream->_cnt > 0)) { 

/* 

f printf ( stderr, "mplex channel %d->%d\n" , i, mplexTab [i] . inSt ream->_cnt ) ; 
*/ 

(*mplexTab [i] . readHandler) (mplexTab [i] . iSocket, mplexTab [i] . readArg, 
mplexTab [i] . IChanld ) ; 



} 

#endif 

nDone++; 
} 

} 

} 



/* USE_STREAMS */ 



} 



return retval; 



int 

mplexPoll(timeout) 

int timeout; 

{ 

int retval; 
int i; 
unsigned long n; 
int nDone; 

for (i = 0, n = 0; (i < mplexMaxChannels ) && (n < iNChannels); i++) { 
if (mplexTab [i] .flnUse == MPLEXJJSE) { 
mplexPollFds [n] . f d = i; 
mplexPollFds [n] . events = 0; 
mplexPollFds [n] . revents = 0; 
if (mplexTab [i] . fWrite) { /* WriteFlag */ 
mplexPollFds [n] .events = POLLOUT; 
} 

if (mplexTab [i] . fRead) { 
mplexPollFds [n] .events = POLLIN; 
} 

n++; 

} 

} 



if ((retval = polKmplexPollFds, n, timeout)) < 0) { 
extern int errno; 
if (errno != EINTR) { 
perror("poll( )") ; 

} 

return retval; 

} 

if (retval == 0) { /* timed out */ 

return retval; 
} else { 
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if (fDebug) { 

fprintf (stderr, "Sel'd %d descriptors\n" , retval); 

} 

} 

nDone = 0; 

for (n =0; (n < iNChannels) && (nDone < retval); n++) { 
if (mplexPollFds [n] . revents > 0) { 
nDone++; 

i = mplexPollFds [n] . fd; 

if ( (mplexTabfi] .fWrite) && (mplexPollFds [n] . revents & POLLOUT) && 
(mplexTab [i] . writeHandler !=NULL)) { 
(*mplexTab [i] .writeHandler) (mplexTab [i] . iSocket, mplexTab [i] .writeArg, 
mplexTab [i] . IChanld) ; 

} 

if ( (mplexTabfi] .fRead) && (mplexPollFds [n] . revents & POLLIN) && 
(mplexTab [i] . readHandler !=NULL)) { 
(*mplexTab [i] . readHandler) (mplexTab [i] . iSocket , mplexTab [i] . readArg, 
mplexTab [i] . IChanld ) ; 

#ifdef USE_STREAMS 

while (mplexTab [i] . inSt ream && (mplexTab [i] . inSt ream->_cnt > 0)) { 

/* 

fprintf (stderr, "mplex channel %d->%d\n" , i, mplexTab [i] . inSt ream->_cnt ) ; 
*/ 

(*mplexTab [i] . readHandler) (mplexTab [i] . iSocket, mplexTab [i] . readArg, 
mplexTab [i] . IChanld) ; 

} 

#endif /* USE_STREAMS */ 

} 

} 

} 

return retval; 

} 



/* 

* mplexGetFilePt rs ( fd , plnSt ream, pOutSt ream) — get file ptrs for the 
channel 

* 

* 

*/ 
int 

mplexGetFilePt rs (fd, plnStream, pOutStream) 
int fd; 
FILE **pInStream; 
FILE **pOutStream; 

{ 

if((fd >= 0) && (mplexTabffd] .flnUse != MPLEX_FREE) ) { 
if (pInStream){ 

*pInStream = mplexInStream(fd) ; 
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} 

if (pOutStream){ 

*pOutSt ream = mplexOutStream(fd) ; 

} 

} else { 

fprintf (stderr, "mplexGetFilePt rs ( ) ->Bad Channel Number %d\n", fd); 
return -1; 

} 

return 0; 



/* 

* mplexSetFilePt rs ( f d ) — set file ptrs for the channel 

* 

* 

*/ 
int 

mplexSetFilePt rs ( fd ) 
int fd; 

{ 

if((fd >= 0) && (mplexTab [fd] .flnUse == MPLEX_FREE) ) { 
mplexInStream(fd) = fdopen(fd, " r" ) ; 
if (mplexInStream(fd) == NULL) { 
perrorC'f dopen( ) In"); 
mplexUnRegisterChannel(fd) ; 
return -1; 

} 

mplexOutStream(fd) = fdopen(fd, "w" ) ; 
if (mplexOutStream(fd) == NULL){ 

perrorC'f dopen( ) Out"); 

mplexUnRegisterChannel(fd) ; 

return -1; 

} 

xdrstdio_create(mplexXDRSEnc(fd) , mplexOutStream(fd) , XDR_ENCODE) ; 
xdrstdio_create(mplexXDRSDec(fd) , mplexInSt ream ( f d ) , XDR_DECODE) ; 

mplexTabffd] .flnUse = MPLEXJJSE; 
} else { 

fprintf (stderr, "mplexSetFilePt rs 0 ->Bad Channel Number %d\n", fd); 
return -1; 

} 

return 0; 



/* 

* mplexResetFilePt rs ( f d ) — Reset file ptrs for the channel 

* 

* 
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*/ 

int 

mplexReset FilePt rs ( f d ) 
int fd; 

{ 

if ((fd >= 0) && (mplexTabffd] .flnUse != MPLEX_FREE) ) { 
if (mplexOutStream(fd) ){ 

xdr_destroy(mplexXDRSEnc(fd) ) ; 
ff lush(mplexOutStream(fd) ) ; 
f close(mplexOutStream(fd) ) ; 
mplexOutStream(fd) = NULL; 

} 

if (mplexInStream(fd) ){ 

xdr_destroy(mplexXDRSDec(fd) ) ; 
ff lush(mplexInStream(fd) ) ; 
fclose(mplexInStream(fd) ) ; 
mplexInStream(fd) = NULL; 

} 

mplexTabffd] .flnUse = MPLEX_FREE; 
} else { 

f printf ( stderr, "mplexResetFilePt rs ( )->Bad Channel Number %d\n", fd); 
return -1; 

} 

return 0; 



/* 

* mplexSetXDRFlag(fd) — set xdr flag for channel 

* 

* 

*/ 
int 

mplexSetXDRFlag(fd) 

int fd; 

{ 

if((fd >= 0) && (mplexTab [fd] .flnUse != MPLEX_FREE) ) { 

mplexTabffd] . f XDR = 1; 
} else { 

fprintf (stderr, "mplexSetXDRFlag ( )->Bad Channel Number %d\n", fd); 
return -1; 

} 

return 0; 



/* 

* mplexResetXDRFlag ( f d ) — Reset file ptrs for the channel 

* 

* 
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*/ 

int 

mplexResetXDRFlag(fd) 
int fd; 

{ 

if((fd >= 0) && (mplexTab [fd] .flnUse != MPLEX_FREE) ) { 

mplexTabffd] . f XDR = 0; 
} else { 

fprintf (stderr, "mplexResetXDRFlag ( )->Bad Channel Number %d\n", fd); 
return -1; 

} 

return 0; 

} 

int 

mplexGetMaxChannels ( ) 
{ 

if ( ImplexMaxChannels) { 

mplexMaxChannels = getdtablesize( ) ; 

} 

return mplexMaxChannels; 

} 



int 

mplexRegisterErrHandler( handler) 
int (*handler) (); 

{ 

if (handler != NULL) { 

mplexErrHandler = handler; 

} 

} 

static int 

mplexDef aultErrHandler ( f d ) 
int fd; 

{ 

mplexUnRegisterChannel(fd) ; 

} 

/* 

* mplexSetReadHandler(fd, handler, arg) — set read handler 

* 

* 

*/ 
int 

mplexSetReadHandler ( f d, handler, arg) 
int fd; 
int (*handler) (); 
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char *arg; 

if((fd >= 0) && (mplexTab [fd] .flnUse != MPLEX_FREE) ) { 

mplexTab [fd] . readHandler = handler; 

mplexTab [fd] . readArg = arg; 
} else { 

fprintf (stderr, "mplexSetReadHandler( )->Bad Channel Number %d\n", fd); 
return -1; 

} 

return 0; 



/* 

* mplexSetReadFlag(fd) — set write flag for channel 

* 

* 

*/ 
int 

mplexSet Read Flag (fd) 
int fd; 

{ 

if((fd >= 0) && (mplexTab [fd] .flnUse != MPLEX_FREE) ) { 

mplexTabffd] .fRead = 1; 
} else { 

fprintf (stderr, "mplexSetReadFlag ( ) ->Bad Channel Number %d\n", fd); 
return -1; 

} 

return 0; 



/* 

* mplexResetReadFlag ( f d ) — Reset writeFlag for the channel 

* 

* 

*/ 
int 

mplexResetReadFlag (fd ) 
int fd; 

{ 

if((fd >= 0) && (mplexTab [fd] .flnUse != MPLEX_FREE) ) { 

mplexTabffd] .fRead = 0; 
} else { 

fprintf (stderr, "mplexResetReadFlag ( )->Bad Channel Number %d\n", fd); 
return -1; 
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} 

return 0; 

} 

/* 

* mplexSetWriteHandler(fd, handler, arg) — set write handler 

* 

* 

*/ 
int 

mplexSetWriteHandler ( f d, handler, arg) 
int fd; 
int (*handler) (); 

char *arg; 

{ 

if((fd >= 0) && (mplexTab [fd] .flnUse != MPLEX_FREE) ) { 

mplexTab [fd] . writeHandler = handler; 

mplexTab [fd] .writeArg = arg; 
} else { 

f printf ( stderr, "mplexSetWriteHandler ( )->Bad Channel Number %d\n", 

fd); 
return -1; 

} 

return 0; 



/* 

* mplexSetWriteFlag(fd) — set write flag for channel 

* 



mplexSetW rite Flag ( f d ) 

int fd; 

{ 

if((fd >= 0) && (mplexTab [fd] .flnUse != MPLEX_FREE) ) { 

mplexTabffd] .fWrite = 1; 
} else { 

fprintf (stderr, "mplexSetWriteFlag ( )->Bad Channel Number %d\n", fd); 
return -1; 

} 

return 0; 



/*- 
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* mplexResetWriteFlag ( f d ) — Reset writeFlag for the channel 

* 

* 

*/ 
int 

mplexResetWriteFlag ( fd ) 
int fd; 

{ 

if((fd >= 0) && (mplexTab [fd] .flnUse != MPLEX_FREE) ) { 

mplexTab [fd] . fWrite = 0; 
} else { 

f printf ( stderr, "mplexResetWriteFlag ( )->Bad Channel Number %d\n", fd); 
return -1; 

} 

return 0; 

} 

unsigned long 

mplexRegisterldler ( handler, arg) 
int (*handler) ( ) ; 
char *arg; 

{ 

if (handler != NULL) { 
if(xacMplex != NULL){ 

return XtAppAddWorkProc (xacMplex, (char (*)()) handler, (XtPointer)arg 
); 

} 

else{ 

mplexIdleHandler = handler; 

} 

} 

} 

int 

mplexUnRegisterIdler( IWPId) 
unsigned long IWPId; 

{ 

if(xacMplex != NULL){ 
XtRemoveWorkProc( IWPId) ; 

} 

else{ 

mplexIdleHandler = NULL; 

} 

} 

static int 

mplexDef aultIdleHandler(arg ) 
char *arg; 

{ 
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f printf ( stderr, "mplexDef aultldleHandler ( )-> called\n"); 

} 

/* 

* mplexSetTimeout ( iTime) — set timeout value for mplex. . 

* process will exit after this 

* 

* 

*/ 
int 

mplexSetTimeout ( iTime) 

int iTime; 

{ 

iMplexTimeout = iTime; 

} 

/* 

* mplexGetTimeout ( iTime) — get timeout value for mplex 

* process will exit after this 

* 

* 

*/ 
int 

mplexGetTimeout ( iTime) 

int iTime; 

{ 

return iMplexTimeout; 

} 

int 

mplexRegisterTimer ( iDelay, timerHandler, timerArg) 
unsigned long iDelay; 

void (*timerHandler) (Prot2(char*, unsigned long*)); 
char *timerArg; 

{ 

struct dllist_node *tmpNode, *node; 

mplexTimerData *timerData, *tData; 

struct timeval tp; 

struct timezone tzp; 

int msecTime, sepTime; 

if(xacMplex != NULL){ 

return XtAppAddTimeOut (xacMplex, iDelay, timerHandler, 
(XtPointer)timerArg) ; 

} 

gettimeof day(&tp, &tzp); 

timerData = (mplexTimerData *) malloc ( sizeof (mplexTimerData) ) ; 
msecTime = tp.tv_usec / 1000 + (tp.tv_sec - iMplexTimeBase) * 1000; 
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timerData->iTimerId = tp.tv_usec + tp.tv_sec; 
timerData->timerHandler = timerHandler; 
timerData->timerArg = timerArg; 
timerData->iTimeout = iDelay + msecTime; 
timerData->iDeltaTime = iDelay; 

tmpNode = dllistMakeNewNode( ) ; 
tmpNode->data = (char *) timerData; 

if (mplexTimerList->head == NULL) { 

dllistlnsertAtTaiKmplexTimerList, tmpNode) ; 
} else { 

for (node = mplexTimerList->head ; node != NULL; node = node->next) { 

tData = (mplexTimerData *) node->data; 

if (tData->iTimeout > timerData->iTimeout ) { 
break; 

} 

} 

if (node == NULL) { 

dllistlnsertAtTaiKmplexTimerList, tmpNode) ; 

timerData->iDeltaTime = timerData->iTimeout - tData->iTimeout ; 
if (timerData->iDeltaTime > iDelay) { 
timerData->iDeltaTime = iDelay; 
} 

timerData->iTimeout = tData->iTimeout + timerData->iDeltaTime; 
} else { 

dllistlnsertBef ore(mplexTimerList, node, tmpNode); 
sepTime = tData->iTimeout - timerData->iTimeout ; 
timerData->iDeltaTime = tData->iDeltaTime - sepTime; 
tData->iDeltaTime = sepTime; 

} 

} 

if(tmpNode == mplexTimerList->head ) { 

iMplexPollTimeout = timerData->iDeltaTime; 

} 

return timerData->iTimerId ; 



int 

mplexHandleTimer( ) 
{ 

struct dllist_node *tmpNode, *node; 
mplexTimerData *tData; 

for (node = mplexTimerList->head ; node != NULL;) { 
tData = (mplexTimerData *) node->data; 
if (tData->iDeltaTime > 0) { 
break; 

} 

tmpNode = node->next; 

/* handled, remove., else handler may try to unregister.. */ 

dllistDeleteThis (mplexTimerList, node) ; 

/* expired, execute., this might add more nodes */ 
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(*tData->timerHandler) (tData->timerArg, tData->iTimerId) ; 
f ree( node->data) ; 
f ree( node) ; 
node = tmpNode; 

#ifdef WANTTHISADJUST 

mplexTimerData *t2Data; 

/* this adjusts for negative time. . danger of backlog */ 
if ( (tData->iDeltaTime < 0) && (tmpNode != NULL)) { 

t2Data = (mplexTimerData *) tmpNode->data; 

t2Data->iDeltaTime += tData->iDeltaTime; 

} 

#endif /* WANT */ 

} 

if (mplexTimerList->head != NULL) { 

tData = (mplexTimerData *) mplexTimerList->head->data ; 

iMplexPollTimeout = tData->iDeltaTime; 
} else { 

iMplexPollTimeout = iMplexTimeout ; 

} 

} 

int 

mplexTimerTicM ) 
{ 

mplexTimerData *tData; 
struct timeval tp; 
struct timezone tzp; 
int msecTime; 

if (mplexTimerList->head != NULL) { 
#ifdef DEBUG 

showTimer( ) ; 
#endif /* DEBUG */ 

gettimeof day(&tp, &tzp); 

tData = (mplexTimerData *) mplexTimerList->head->data ; 

msecTime = tp.tv_usec / 1000 + (tp.tv_sec - iMplexTimeBase) * 1000; 

tData->iDeltaTime = tData->iTimeout - msecTime; 

if (tData->iDeltaTime <= 0) { 

mplexHandleTimer( ) ; 
} else { 

iMplexPollTimeout = tData->iDeltaTime; 

} 

#ifdef DEBUG 

showTimer( ) ; 
#endif /* DEBUG */ 

} 

} 

int 

mplexTimeoutHandler ( ) 
{ 

if (iMplexPollTimeout == iMplexTimeout) { 
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iMplexTotalldle += iMplexTimeout ; 

if (iMplexTotalldle >= (DEFAULTMPLEXTIMEOUT * 10)) { 

f printf ( stderr, "mplexTimeoutHandler ( )->timed out and died!\n"); 
exit(-l) ; 

} 

} 

if (mplexTimerl_ist->head == NULL) { 
if (mplexIdleHandler) { 
(*mplexIdleHandler) (0); 

} 

iMplexPollTimeout = iMplexTimeout; 
} else { 

mplexTimerTicM ) ; 

} 

} 

int 

showTimer( ) 
{ 

mplexTimerData *tData; 
struct dllist_node *node; 
int i; 

for (node = mplexTimerList->head, i = 0; node != NULL; 
node = node->next, i++) { 
tData = (mplexTimerData *) node->data; 

fprintf (stderr, " [%d] — %d (%d)\n", i, tData->iDeltaTime, tData-> 
iTimeout) ; 

} 

} 



int 

mplexUnRegisterTimer ( iTimerld ) 
unsigned long iTimerld; 

{ 

struct dllist_node *node; 
mplexTimerData *t2Data, *tData; 

if(xacMplex != NULL){ 

XtRemoveTimeOut ( iTimerld) ; 
return; 

} 

for (node = mplexTimerList->head ; node != NULL; node = node->next) { 
tData = (mplexTimerData *) node->data; 
if (tData->iTimerId == iTimerld) { 

if (node->next != NULL) { 
t2Data = (mplexTimerData *) node->next->data; 
t2Data->iDeltaTime += tData->iDeltaTime; 

} 

dllistDeleteThis (mplexTimerList, node) ; 
f ree(node->data) ; 
f ree(node) ; 



Page 22 of 24 



mplex.c 



7/5/11 11:13 AM 



break; 

} 

} 

} 

unsigned long 
mplexGetUniqueld ( ) 
{ 

struct timeval tp; 
struct timezone tzp; 
int id; 

gettimeof day(&tp, &tzp); 

id = tp.tv_usec + tp.tv_sec; /* unique enough */ 
return id; 

} 



static void mplexRegisterAUInputFuncs ( ) 
{ 

int i; 

for (i = 0; i < mplexMaxChannels ; i++) 
{ 

if (mplexTabfi] .flnUse == MPLEXJJSE) 
{ 

if (mplexTab [i] . fRead) 
{ 

mplexTab [i] . IChanld = 
XtAppAddlnput (xacMplex, i, 

(XtPointer) XtlnputReadMask , 

mplexDef aultReadHandler, (XtPointer) mplexTab [i] . readArg ) ; 

} 

if (mplexTab [i] . fWrite) 
{ 

f printf ( stderr, "Somone to write to!\n"); 
mplexTab [i] . mChanld = 
XtAppAddlnput (xacMplex, i, 

(XtPointer) XtlnputWriteMask, 

mplexDef aultWriteHandler, (XtPointer)mplexTab [i] . readArg) ; 

} 

#ifdef N0_SHASTRA4HP 

fprintf (stderr, "Somone to except to!\n"); 
mplexTab [i] . rChanld = 
XtAppAddlnput (xacMplex, i, 

(XtPointer) XtlnputExceptMask, 

mplexDef aultReadHandler, (XtPointer) mplexTab [i] . readArg ) ; 

#endif 
} 

} 
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static void mplexUnRegisterAllInputFuncs ( ) 
{ 

int i; 

for (i = 0; i < mplexMaxChannels ; i++) 
{ 

if (mplexTabfi] .flnUse == MPLEXJJSE) 
{ 

if ( (mplexTabfi] .f Read) && (mplexTab [i] . IChanld) ) 
{ 

XtRemoveln put (mplexTab [i] .IChanld) ; 
mplexTab [i] . IChanld = 0; 

} 

if ( (mplexTabfi] .fWrite) && (mplexTab [i] . mChanld ) ) 
{ 

f printf ( stderr, "no one to write to!\n"); 
XtRemovelnput (mplexTab [i] .mChanld) ; 
mplexTab [i] .mChanld = 0; 

} 

#ifdef N0_SHASTRA4HP 

f printf ( stderr, "no one to except to!\n"); 
XtRemovelnput (mplexTab [i] . rChanld) ; 

#endif 
} 

} 



static void mplexWorkTheTimer ( ) 
{ 

static int flag = 1; 

if (flag) 

{ 

mplexRegisterAHInputFuncs ( ) ; 
flag = 0; 

} 

else 
{ 

mplexUnRegisterAllInputFuncs ( ) ; 
flag = 1; 

} 

XtAppAddTimeOut (xacMplex, 50, mplexWorkTheTimer, 
(XtPointer)NULL) ; 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <errno.h> 
#include <string.h> 

#include <sys/types . h> 
#include <sys/socket . h> 
#include <sys/wait.h> 

#define STANDALONEnn 
#define TEST_0nFD 



* pipeSlaveOnFD — create a pipe slave on a given a file descriptor 

* 

* Arguments are 

* one file descriptor used for reading and writing to the Slave process. 

* argv initialized for the slave (null terminated) 

* 

* The routine forks and executes a Slave process and sets up 

* the descriptors so it is talking via stdio to the Slave process. 

* 

* returns -1 on error 



*/ 
int 

pipeSlaveOnFD(f dIO, argv) 
int fdIO; 
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char **argv; 

{ 

int e ; 

#ifdef SHASTRA4SUN4 

if ((e = vforkO) == 0) { 
#else /* SHASTRA4SUN4 — SGI */ 

if ((e = forkO) == 0) { 
#endif /* SHASTRA4SUN4 */ 

if (dup2(fdI0, 0) == -1 || dup2(fdI0, 1) == -1) { 
perTor("dup2( )" ) ; 
return -1; 

} 

/* now exec the Slave program */ 
if (execv(argv [0] , argv) == -1) { 

perror("execv( ) " ) ; 

return -1; 

} 

} else if (e == -1) { 
perror( "f ork( ) " ) ; 
return -1; 

} 

wait3(NULL, WNOHANG, NULL); 
return e; /* good return */ 



/* 

* pipeSlave — create a pipe slave 

* 

* Arguments are 

* one file descriptor pointer which returns a descriptor to be 

* used for reading and writing to the Slave process. 

* argv initialized for the slave(null terminated) 

* 

* The routine forks and executes a Slave process and sets up 

* the descriptors so it is talking via stdio to the Slave process. 

* 

* returns -1 on error 



int 

pipeSlave(pFdIO, argv) 

int *pFdI0; 

char **argv; 

{ 

int sockPair [2] ; 

int e ; 

if (socketpair(AF_UNIX, SOCK_STREAM, 0, sockPair) == -1) { 
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perTor( "socket pa ir( ) : " ) ; 
return -1; 

} 

/* set up a two-way pipe */ 
#ifdef SHASTRA4SUN4 

if ((e = vforkO) == 0) { 
#else /* SHASTRA4SUN4 — SGI */ 

if ((e = forkO) == 0) { 
#endif /* SHASTRA4SUN4 */ 

/* in child */ 

if (close(sockPair[0] ) == -1) { 
perror("close( ) : " ) ; 
return -1; 

} 

if (dup2(sockPair[l] , 0) == -1) { 
perror("dup2( ) : 0" ) ; 
return -1; 

} 

if (dup2(sockPair [1] , 1) == -1) { 
perror("dup2( ) : 1" ) ; 
return -1; 

} 

if (execv(argv [0] , argv) == -1) { 
perror("execv( ) : " ) ; 
return -1; 

} 

exit (0) ; 
} else if (e == -1) { 
perror( "f ork( ) " ) ; 
return -1; 

} 

/* in parent */ 

if (close(sockPair [1] ) == -1) { 
perror("close( ) :") ; 
return -1; 

} 

*pFdI0 = sockPair [0] ; 

return e; /* good return to main process */ 



} 



/* 

* remotePipeSlaveOnFD — create a pipe slave on a given a file descriptor 

* on a remote host 

* 

* Arguments are 

* one file descriptor used for reading and writing to the Slave process. 

* host name of remote host 

* argv initialized for the slave (null terminated) 

* 

* The routine forks and executes a Slave process and sets up 

* the descriptors so it is talking via stdio to the Slave process. 
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* returns -1 on error 



*/ 
int 

remotePipeSlaveOnFD(f dIO, hostname, argv) 

int fdIO; 

char *hostname; 

char **argv; 

{ 

int e ; 

#ifdef SHASTRA4SUN4 

if ((e = vforkO) == 0) { 
#else /* SHASTRA4SUN4 — SGI */ 

if ((e = forkO) == 0) { 
#endif /* SHASTRA4SUN4 */ 

if (dup2(fdI0, 0) == -1 || dup2(fdI0, 1) == -1) { 
perror("dup2( )" ) ; 
return -1; 

} 

/* now exec the Slave program */ 
/*ACTUALLY — create new argv, with /usr/ucb/rsh hostname etc */ 
if (execv(argv [0] , argv) == -1) { 

perror("execv( ) " ) ; 

return -1; 

} 

} else if (e == -1) { 
perror( "f ork( ) " ) ; 
return -1; 

} 

return e; /* good return */ 



/* 

* remotePipeSlave — create a pipe slave 

* 

* Arguments are 

* one file descriptor pointer which returns a descriptor to be 

* used for reading and writing to the Slave process. 

* hostname of remote host 

* argv initialized for the slave(null terminated) 

* 

* The routine forks and executes a Slave process and sets up 

* the descriptors so it is talking via stdio to the Slave process. 

* 

* returns -1 on error 

* 

*/ 
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int 

remotePipeSlave ( pFdIO, hostname, argv) 
int *pFdI0; 
char *hostname; 
char **argv; 

{ 

int sockPair[2]; 

int e; 

char **newArgv; 

if (socketpair(AF_UNIX, SOCK_STREAM, 0, sockPair) == -1) { 
perror("socketpair( ) : " ) ; 
return -1; 

} 

/* set up a two-way pipe */ 
#ifdef SHASTRA4SUN4 

if ((e = vforkO) == 0) { 
#else /* SHASTRA4SUN4 — SGI */ 

if ((e = forkO) == 0) { 
#endif /* SHASTRA4SUN4 */ 

/* in child */ 

if (close(sockPair[0] ) == -1) { 
perror("close( ) : " ) ; 
return -1; 

} 

if (dup2(sockPair[l] , 0) == -1) { 
perror("dup2( ) :0") ; 
return -1; 

} 

if (dup2(sockPair [1] , 1) == -1) { 
perror("dup2( ) : 1" ) ; 
return -1; 

} 

/*ACTUALLY — create new argv, with /usr/ucb/rsh hostname etc */ 
/*now exec an rsh host cmd*/ 
newArgv = (char**)malloc(sizeof (char*)*4) ; 
newArgv[0] = strdup("/usr/ucb/rsh") ; 
newArgvfl] = strdup(hostname) ; 
newArgv[2] = strdup(argv [0] ) ; 
newArgv[3] = NULL; 

if (execv(newArgv [0] , newArgv) == -1) { 

perror("execv( ) : " ) ; 

return -1; 

} 

exit (0) ; 
} else if (e == -1) { 
perror("fork( ) " ) ; 
return -1; 

} 

/* in parent */ 

if (close(sockPair [1] ) == -1) { 
perror("close( ) : " ) ; 
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return -1; 

} 

*pFdIO = sockPair [0] ; 

return e; /* good return to main process */ 



#ifdef STANDALONE 
main(argc, argv) 

int argc; 

char **argv; 

{ 

int fd; 

static char *argvSlave[] = { 

"/usr/bin/tr" , 

" [a-z]'\ 

" [A-ZP, 

NULL 

}; 

#ifdef TEST_0nFD 

fd = 1; /* stdout descriptor */ 

if (pipeSlaveOnFD(fd, argv) == -1) { 

f print f ( stderr, M pipeSlaveOnFD( )->f ailed ! \ n" ) ; 
return; 

} 

#else /* TEST_0nFD— no FD */ 

if (pipeSlave(&fd, argv) == -1) { 

f print f ( stderr, "pipeSlave( )->f ailed ! \n" ) ; 
return; 

} 

#endif /* TEST_0nFD */ 

{ 

FILE *fp; 
int i; 
char *str; 
char sb[1024]; 

f p = fdopen(f d, "w" ) ; 

for (i = 0; i < 10; i++) { 

fprintf (fp, "abcdef ghij klmnopqrstuvwxyz\n" ) ; 

} 

f close( f p) ; 

f p = fdopen(f d, " r" ) ; 

for (i = 0; i < 10; i++) { 

str = fgets(sb, 1024, fp) ; 

fprintf (stdout, "%s\n", str); 

} 

f close( f p) ; 

} 

} 

#endif /* STANDALONE */ 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <errno.h> 

#include <sys/types . h> 
#include <sys/socket . h> 
#include <sys/un.h> 
#include <netinet/in . h> 
#include <netdb.h> 

#include <shast ra/shast ra . h> 

#include <shast ra/utils/hash . h> 

#in elude <shast ra/network/hostMg r . h> 
#in elude <shast ra/ net work/ server. h> 
#include <shast ra/network/serverP. h> 
#include <shast ra/network/serverPorts . h> 
#include <shast ra/network/mplexP. h> 
#include <shast ra/network/mplex. h> 

#include <shast ra/datacomm/shast raDataH . h> 

#define DEBUGxx 
#define USEXDRnn 

#define USE_STREAMS /* CHECK same flag in mplex, server */ 

char *readString(Protl(int) ) ; 
char **readStrings(Protl(int) ) ; 

int cmNewHandleCmdConnection(Prot3(int, hashTable *, char *)); 
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int cmNewSearchNExecute(Prot4(int, char *, hashTable *, char *) ) ; 

static struct sockadd r_in salnSe rver; 

/* 

* Function 

*/ 

unsigned long 
hostName2IPAddress ( sName) 
char *sName; 

{ 

struct hostent *pHostEnt; 

if (sName == NULL || (pHostEnt = gethostbyname ( sName) ) == NULL) { 

return 0; 
} else 
{ 

unsigned int temp; 

memcpy(&temp, &pHostEnt->h_add r_list [0] [0] , 4); 
return ntohl(temp) ; 

} 

} 

int 

cmCloseSocket ( iSocket ) 

int iSocket; 

{ 

if (shutdownUSocket, 2) != 0) { 
perror("shutdown( )") ; 
return -1; 

} 

if (close(iSocket) != 0) { 
perror("close( )") ; 
return -1; 

} 

return 0; 

} 

int 

cmPrintEr r ( sMessage) 

char *sMessage; 

{ 

#ifdef DEBUG 

perror( sMessage) ; 
#endif 

sMessage = NULL; 
#ifdef ERR_EXIT 

exit(-l) ; 
#else 

return -1; 
#endif 
} 
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{ 



/* 

* Function 
*/ 
int 

cmOpenServerSocket ( sService, iPort, pCmdData, pSocket, argRead) 
char *sService; 
int iPort; 
shaCmdData *pCmdData; 
int *pSocket; 
char *argRead; 

int length; 

struct servent *pServEnt; 

struct protoent *pProtoEnt; 

struct linger soLinger; 

int iOption; 

int fNonStdPort = 0; 

int iSocket; 

pProtoEnt = getprotobynameC'tcp" ) ; 
if(iPort > 0){ 
fNonStdPort = 1; 

} 

else if (((pServEnt = getservbyname( sService, "tcp")) == NULL) || 
(pServEnt->s_port ==0)) { 
fNonStdPort = 1; 

iPort = getServerPort ( sService) ; 

} 

if((iSocket = socket (AF_INET, SOCK_STREAM, 0)) < 0){ 
perror("socket( )" ) ; 
return -1; 

} 

#ifdef DEBUG 

f printf ( stderr, "got socket descriptor %d\n", iSocket); 
#endif /* DEBUG */ 

soLinger. l_onoff = 0; 

soLinger. l_linger = 5; /* seconds */ 

if (setsockoptUSocket, S0L_S0CKET, S0_LINGER, &soLinger, 
sizeof (struct linger)) == -1) { 
perror("setsockopt( ) S0L_S0CKET, S0_LINGER" ) ; 
close(iSocket) ; 
return -1; 

} 

salnServer. sin_f amily = AF_INET; 
salnServer. sin_addr. s_addr = INADDR_ANY; 
if (fNonStdPort) { 

salnServer. sin_port = htons ( iPort ) ; 
} else { 

salnServer. sin_port = pServEnt->s_port ; 
iPort = ntohs(pServEnt->s_port) ; 

} 

if (bind(iSocket, &sa!nServer, sizeof ( salnServer) ) != 0){ 
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perTor("bind( )") ; 
close(iSocket) ; 
return -1; 

} 

length = sizeof (salnServer) ; 

if (getsockname( iSocket, &saInServer, &length)) { 
perror("getsockname( )") ; 
close(iSocket) ; 
return -1; 

} 

iPort = ntohs ( salnServer . sin_port) ; 
#ifdef DEBUG 

f printf ( stderr, "Tcp Socket has port #%d\n", iPort); 
#endif /* DEBUG */ 

if (UstenUSocket, 5) != 0) { 

perror("listen( )" ) ; 

close(iSocket) ; 

return -1; 

} 

iOption = 1; 

if (setsockopt( iSocket, S0L_S0CKET, SO_REUSEADDR, 
&iOption, sizeof (iOption) ) == -1) { 
perror("setsockopt() S0L_S0CKET, SO_REUSEADDR" ) ; 
close(iSocket) ; 
return -1; 

} 

if (mplexRegisterChanneK iSocket, cmServerAcceptHandler, 
pCmdData, argRead) == -1) { 
close(iSocket) ; 
return -1; 

}; 

*pSocket = iSocket; 
return iPort; 



int 

cmClientConnect2Server( sHost, sService, iPortSvc, pSocket) 
char *sHost; 
char *sService; 
int iPortSvc; 
int *pSocket; 

{ 

struct protoent *pProtoEnt; 
struct sockaddr_in salnServer; 
struct hostent *pHostEnt; 
struct servent *pServEnt; 
struct linger soLinger; 
int fNonStdPort = 0; 

int iPort = 0; 

pProtoEnt = getprotobynameC'tcp") ; 

if((*pSocket = socket (AF_INET, SOCK_STREAM, 0)) < 0){ 
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perror("socket( )" ) ; 
return -1; 

} 

soLinger. l_onof f = 0; 

soLinger. l_linger = 5; /* number of seconds */ 
if (setsockopt(*pSocket, S0L_S0CKET, S0_LINGER, &soLinger, 
sizeof (struct linger)) == -1) { 

perror("setsockopt( ) S0L_S0CKET, S0_LINGER" ) ; 

return -1; 

} 

#ifdef DEBUG 

f printf ( stderr, "Got socket descr %d for sl\n", *pSocket); 
#endif /* DEBUG */ 

if((pHostEnt = gethostbyname(sHost) ) == NULL){ 

f printf ( stderr, "Unknown host %s\n", sHost); 

close(*pSocket) ; 

return (-1); 

} 

if (iPortSvc != 0) { 

fNonStdPort = 1; 

iPort = iPortSvc; 
} else if ((pServEnt = getservbyname( sService, "tcp")) == NULL) { 

fNonStdPort = 1; 

if ((iPort = getServerPort ( sService) ) ) { 
} else { 

iPort = iPortSvc; 

} 

} 

memcpy( (char*)&saInServer. sin_addr, pHostEnt->h_add r, pHostEnt->h_length) 

salnServer. sin_f amily = AF_INET; 
if (fNonStdPort) { 

salnServer. sin_port = htons ( iPort ) ; 
} else { 

salnServer. sin_port = pServEnt->s_port ; 
iPort = ntohs(pServEnt->s_port) ; 

} 

if (connect(*pSocket, &saInServer, sizeof ( salnServer) ) < 0) { 
perror("connect( )") ; 
close(*pSocket) ; 
return -1; 

} 

#ifdef WANTTHIS 

struct sockaddr_in salnClient; 
int length = 0; 

length = sizeof ( salnClient ) ; 

if (getpeername(*pSocket, &saInClient, &length) < 0) { 

perror("getpeername( )") ; 
} else { 

f printf ( stderr, "ServerPort = %d (len %d)\n", 
ntohs( salnClient. sin_port ) , length) ; 

} 

if (getsockname(*pSocket, &sa!nClient, &length) < 0) { 
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perTor("getpeername( )") ; 
} else { 

fprintf (stderr,"ClientPort = %d (len %d)\n", 
ntohs ( salnClient . sin_port ) , length) ; 

} 

#endif /* WANTTHIS */ 

return iPort; 

} 

int 

cmServerAccept Handler ( iSock, a rg Dummy) 
int iSock; 
char *argDummy; 

{ 

int length; 

int iSockNew; 

int retVal; 

int (*fnConnect) (); 

length = sizeof (salnServer) ; 

if ((iSockNew = accept ( iSock, &saInServer, &length)) < 0) { 
perror("accept( )" ) ; 
return -1; 

} 

#ifdef DEBUG 

fprintf ( stderr, "socket descriptor %d for client connection\n" , iSockNew) 

#endif /* DEBUG */ 

argDummy = NULL; 

retVal = mplexRegisterChanneK iSockNew, cmHandleServerConnection, 

mplexTab [iSock] . pCmdData, NULL); 
if (retVal == -1){ 

close(iSockNew) ; 

return(-l) ; 

} 

/* if there is a connect-f unc, call it */ 
/*CHECK*/ 

if (mplexTab [iSock] . readArg != NULL) { 

fnConnect = (int (*) ()) mplexTab [iSock] . readArg ; 
(*fnConnect) (iSockNew); 

} 

return retVal; 

} 

int 

cmHandleServerConnection ( iSock, a rg Dummy) 
int iSock; 
char *argDummy; 

{ 

return cmNewHandleCmdConnection ( iSock, mplexTab [iSock] . pCmdData->htCmds, 
argDummy) ; 

/* 

* return cmHandleCmdConnection ( iSock, 
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* mplexTab [iSock] . pCmdData->pCmdTab, 

* mplexTab [iSock] . pCmdData->nCmds, a rg Dummy) ; 

*/ 



int 

cmlnitializeCmdData(pCmdData) 
shaCmdData *pCmdData; 

{ 

int i; 

/* put entries into the hash table */ 
if (pCmdData->htCmds == NULL) { 

pCmdData->htCmds = htMakeNew( CMHASHTABLESIZE, 0 /* arbitsize */ ); 

} 

for (i = 0; i < pCmdData->nCmds ; i++) { 

if (pCmdData->pCmdTab [i] . command == NULL) { 

fprintf (stderr, "cmlnitializeCmdData ( )->null command ! \n" ) ; 

} 

htInstallSymbol(pCmdData->htCmds, 

pCmdData->pCmdTab [i] . command, 
(char*) &pCmdData->pCmdTab [i] ) ; 

} 

/* 

* htDump(pCmdData->htCmds,0) ; htDump(pCmdData->htCmds, 1) ; 

*/ 

if (pCmdData->htCmdsIn == NULL) { 

pCmdData->htCmdsIn = h t Ma keNew( CMHASHTABLESIZE, 0 /* arbitsize */ ); 

} 

for (i = 0; i < pCmdData->nCmdsIn; i++) { 
htInstallSymbol(pCmdData->htCmdsIn, 

pCmdData->pCmdTabIn [i] .command, 
(char *) &pCmdData->pCmdTabIn [i] ) ; 

} 

/* 

* htDump(pCmdData->htCmdsIn,0) ; htDump(pCmdData->htCmdsIn, 1) ; 

*/ 

} 

/* 

* funcO — destructively add cmds to old shaCmdData 
*/ 
int 

cmJoinCmdData(pCmdDataOld, pCmdDataAdd) 
shaCmdData *pCmdDataOld ; 
shaCmdData *pCmdDataAdd ; 

{ 

cmCommand *pCmdTab; 
cmCommand *pCmdTabIn; 
int i; 
int iNext = 0; 
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pCmdTab = ( cmCommand *) malloc ( sizeof ( cmCommand ) * 

(pCmdDataOld->nCmds + pCmdDataAdd->nCmds ) ) ; 
if (pCmdDataOld->nCmds > 0) { 

memcpy(&pCmdTab [0] , pCmdDataOld->pCmdTab, 

sizeof (cmCommand) * pCmdDataOld->nCmds ) ; 
iNext = pCmdDataOld->nCmds; 

} 

if (pCmdDataAdd->nCmds > 0) { 

memcpy(&pCmdTab [iNext] , pCmdDataAdd->pCmdTab, 
sizeof ( cmCommand ) * pCmdDataAdd->nCmds ) ; 

} 

pCmdDataOld->pCmdTab = pCmdTab; 

pCmdDataOld->nCmds = pCmdDataOld->nCmds + pCmdDataAdd->nCmds ; 
if (pCmdDataOld->htCmds == NULL) { 

pCmdDataOld->htCmds = htMakeNew( CMHASHTABLESIZE, 0 /* arbitsize */ ); 

iNext = 0; 

} 

for (i = iNext; i < pCmdDataOld->nCmds ; i++) { 
htInstallSymbol(pCmdDataOld->htCmds, 

pCmdDataOld->pCmdTab [i] . command, 
(char *) &pCmdDataOld->pCmdTab [i] ) ; 

} 

pCmdTabln = (cmCommand *) malloc ( sizeof ( cmCommand ) * 

( pCmdDataOld->nCmdsIn + pCmdDataAdd->nCmdsIn ) ) ; 
if (pCmdDataOld->nCmdsIn > 0) { 

memcpy(&pCmdTabIn [0] , pCmdDataOld->pCmdTabIn, 

sizeof (cmCommand) * pCmdDataOld->nCmdsIn) ; 
iNext = pCmdDataOld->nCmdsIn; 

} 

if (pCmdDataAdd->nCmdsIn > 0) { 

memcpy(&pCmdTabIn [iNext] , pCmdDataAdd->pCmdTabIn, 
sizeof (cmCommand) * pCmdDataAdd->nCmdsIn) ; 

} 

pCmdDataOld->pCmdTabIn = pCmdTabln; 

pCmdDataOld->nCmdsIn = pCmdDataOld->nCmdsIn + pCmdDataAdd->nCmdsIn; 
if (pCmdDataOld->htCmdsIn == NULL) { 

pCmdDataOld->htCmdsIn = htMakeNew( CMHASHTABLESIZE, 0 /* arbitsize */ ); 

iNext = 0; 

} 

/* put entries into the hash table */ 
for (i = iNext; i < pCmdDataOld->nCmdsIn; i++) { 
htInstallSymbol(pCmdDataOld->htCmdsIn, 

pCmdDataOld->pCmdTabIn [i] . command, 
(char *) &pCmdDataOld->pCmdTabIn [i] ) ; 

} 

return 0; 



int 

cmHandleCmdConnection ( iSocket, pCmdTab, nCmds, argDummy) 
int iSocket; 
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cmCommand *pCmdTab; 

int nCmds; 

char *a rgDummy; 

{ 

char *sBuf; 

int retVal; 

sBuf = cmReceiveString(iSocket) ; 
if (sBuf == NULL) { 

return (*mplexErrHandler) (iSocket); 

} 

retVal = cmSearchNExecute(iSocket, sBuf, pCmdTab, nCmds, a rgDummy) ; 
f ree(sBuf ) ; 
return retVal; 

} 

int 

cmSearchNExecute( iSocket, sBuf, pCmdTab, nCmds, argDummy) 
int iSocket; 
char *sBuf; 
cmCommand *pCmdTab; 
int nCmds; 
char *argDummy; 

{ 

int i; 

int fFound = 0; 

if (sBuf == NULL) { 
return 0; 

} 

for (i =0; (i < nCmds) && IfFound; i++) { 
if (strncmp(pCmdTab [i] . command, sBuf, 
strlen(pCmdTab [i] .command) ) == 0) { 
fFound = 1; 
#ifdef DEBUG 

fprintf (stderr, "%s\n", pCmdTab [i] . helpmsg ) ; 
#endif /* DEBUG */ 

(*pCmdTab [i] . function ) (iSocket, argDummy); 
break; 

} 

} 

if ( IfFound) { 

fprintf (stderr, "cmSearchNExecute( )- Command not found -> %s\n", 

sBuf ) ; 
return (-1); 

} 

return 0; 

} 

int 

cmNewHandleCmdConnection(iSocket, phtCmds, argDummy) 
int iSocket; 
hashTable *phtCmds; 
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char *a rgDummy; 

{ 

char *sBuf; 

int retVal; 

sBuf = cmReceiveString(iSocket) ; 
if (sBuf == NULL) { 

return (*mplexErrHandler) (iSocket); 

} 

retVal = cmNewSearchNExecute( iSocket, sBuf, phtCmds, a rgDummy ) ; 
f ree(sBuf ) ; 
return retVal; 

} 

int 

cmNewSearchNExecute(iSocket, sBuf, phtCmds, argDummy) 
int iSocket; 
char *sBuf; 
hashTable *phtCmds; 
char *argDummy; 

{ 

struct he *phe; 
struct cmCommand *pCmd; 

if (sBuf == NULL) { 

f printf ( stderr, "cmNewSearchNExecute( )->null input!\n"); 
return 0; 

} 

phe = htLookup(phtCmds, sBuf); 
if (phe == NULL) { 

fprintf (stderr, M cmNewSearchNExecute( )- Command not found -> %s\n", 
sBuf ) ; 

return (-1); 

} 

pCmd = (struct cmCommand *) phe->data; 
#ifdef DEBUG 

fprintf ( stderr, "%s\n", pCmd->helpmsg ) ; 
#endif /* DEBUG */ 

(*pCmd->f unction) (iSocket, argDummy); 

return 0; 

} 



/* 

* cmReceiveSt ring ( f d ) — 
* 

*/ 

cha r * 
cmReceiveSt ring ( f d ) 

int fd; 

{ 
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char *buf; 

int len, maxlen, c; 

shaString inStr; 

if (mplexTabffd] .flnUse == MPLEX_FREE) { 

fprintf (stderr, "cmReceiveString( ) — Bad Channel. \n" ) ; 
return NULL; 

} 

#ifdef USEXDR 
inStr = NULL; 

if (shaStringIn(fd, &inStr) == -1) { 
perror( "shaString In ( )") ; 
inStr = NULL; 

fprintf (stderr, "CMRS: got (null) on %d\n", fd); 
#ifdef DEBUG 

#endif /* DEBUG */ 

} else { 
#ifdef DEBUG 

len = strlen(inStr) ; 

fprintf (stderr, "CMRS: (%s) %d on %d\n", inStr, len, fd); 
#endif /* DEBUG */ 

} 

return inStr; 
#endif /* USEXDR */ 

maxlen = 64; 
len = 0; 

buf = malloc ( maxlen ) ; 
do { 

/* 

* Quite inefficient to read byte by byte, but if length is 

* unknown . . 

*/ 

#ifdef USE_STREAMS 

c = getc(mplexTab [fd] . inStream) ; 
bufflen] = c; 

if (feof (mplexTab [fd] . inStream) && (len == 0)) 
#else /* USE_STREAMS */ 

if (((c = read(fd, &buf[len], 1)) <= 0) && (len == 0)) 
#endif /* USE_STREAMS */ 

{ 

f ree( buf ) ; 
return (NULL); 
} 

if (ferror(mplexTab [fd] . inStream) ) { 

fprintf ( stderr, "cmReceiveSt ring ( )->error on stream of %d\n", fd); 
perror("cmReceiveString( )->getc( )") ; 
#ifdef WANT 

fprintf (stderr, "mplexTab [%d] . inStream = %lx, Base= %lx, Ptr= %lx\n", 
fd, 

mplexTabffd] .inStream, 
mplexTabffd] . inSt ream->_base, 
mplexTab [fd] . inSt ream->_pt r) ; 
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fprintf (stderr, "mplexTab [%d] . inStream Cnt= %d, file= %d, flag= %d\n" 
fd, 

mplexTab [fd] . inSt ream->_cnt, 
mplexTab [fd] . inSt ream->_f ile, 
mplexTab [fd] . inSt ream->_f lag ) ; 
fprintf (stderr, "mplexTab [%d] . inBuf = %lx, (%s), Buf=(%s) len=%d\n", 
fd, 

mplexTab [fd] . inBuf, 

mplexTab [fd ]. inBuf , buf, len); 
#endif /*WANT*/ 
f ree(buf ) ; 
return NULL; 
break; 

} else if ((buf [len] == '\0') || (c < 0)) { 
break; 

} 

if (len == maxlen - 1) { 
maxlen *= 2; 

if ((buf = realloc(buf, maxlen)) == NULL) { 
fprintf (stderr, "reallocO: ran out of memory. \n"); 
exit(l) ; 

} 

} 

len++; 

} while (1) ; /* TRUE */ 

len++; 

if (len < maxlen) { 

if ((buf = realloc(buf, len)) == NULL) 

fprintf (stderr, "warning: realloc failed. \n"); 

} 

#ifdef DEBUG 

fprintf (stderr, "CMRS: (%s) %d on %d\n", buf, len, fd); 

fprintf ( stderr, "mplexTab [%d] . inStream = %lx, Base= %lx, Ptr= %lx\n", 

fd, mplexTab [fd ]. inSt ream, mplexTab [fd] . inSt ream->_base, 

mplexTab [fd] . inSt ream->_pt r ) ; 
#endif /* DEBUG */ 

return (buf); 



/* 

* cmSendNulKf d) — send a null character down tube 

* 

* 

*/ 
int 

cmSendNull(fd) 

int fd; 

{ 
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if (mplexTabffd] .flnUse == MPLEX_FREE) { 

fprintf (stderr, "cmSendNULL( ) — Bad Channel. \n" ) ; 
return -1; 

} 

#ifdef USE_STREAMS 

if (fputc(0, mplexTabffd] .outSt ream) == EOF) { 
return -1; 

} 

#else /* USE_STREAMS */ 

if (write(fd, &c, 1) < 1) { 
return -1; 

} 

#endif /* USE_STREAMS */ 

return 0; 



/* 

* cmSendData(f d, s) — send a string to a file descriptor, no null at end 

* 



int 

cmSendData(fd, s) 

int fd; 
char *s; 

{ 

int n; 

if (mplexTabffd] .flnUse == MPLEX_FREE) { 

fprintf (stderr, "cmSendData( ) — Bad Channel. \n" ) ; 
return -1; 

} 

n = strlen(s) ; 
#ifdef DEBUG 

fprintf (stderr, "CMSD: (%s) %d on %d\n", s, n, fd); 
#endif /* DEBUG */ 

#ifdef USEXDR 

if (shaStringOut(fd, &s) == -1) { 
return -1; 

} 

return 0; 
#endif /* USEXDR */ 

#ifdef USE_STREAMS 

if (fprintf (mplexTabffd] .outStream, "%s", s) == EOF) { 
return -1; 

} 

#else /* USE_STREAMS */ 

if (write(fd, s, n) < n) { 
return -1; 

} 
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#endif /* USE_STREAMS */ 

return 0; 

} 

/* 

* cmSendString (fd, s) — send a null-terminated string to a file 
descriptor 

* 



int 

cmSendString(fd, s) 

int fd; 
char *s; 

{ 

int n; 

if (mplexTabffd] .flnUse == MPLEX_FREE) { 

fprintf (stderr, "cmSendString ( ) — Bad Channel. \n" ) ; 
return -1; 

} 

if(s == NULLK 

fprintf ( stderr, "cmSendString ( ) — Sending NULL!!\n"); 

} S 

n = strlen(s) ; 
#ifdef DEBUG 

fprintf (stderr, "CMSS: (%s) %d on %d\n", s, n, fd); 
#endif /* DEBUG */ 

#ifdef USEXDR 

if (shaStringOut(fd, &s) == -1) { 
return -1; 

} 

return 0; 
#endif /* USEXDR */ 

#ifdef USE_STREAMS 

if (fprintf (mplexTabffd] .outStream, "%s", s) == EOF) { 
return -1; 

} 

if (fputc(0, mplexTabffd] .outStream) == EOF) { 
return -1; 

} 

#else /* USE_STREAMS */ 

if (write(fd, s, n + 1) < n + 1) { 
return -1; 

} 

#endif /* USE_STREAMS */ 

return 0; 
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/* 

* cmMultiCast ( pf d, nfd, func, argl, arg2) — call func on fd list 

* 



int 

cmMultiCast (pfd, nfd, func, arg) 

int *pfd; 

int nfd; 

int (*func) 0; 

char *arg; 

{ 

int i; 

int retVal; 

for (i = 0; i < nfd; i++) { 

retVal = (*func) (pfd[i], arg); 

} 

return retVal; 

} 

cmAckOk(fd) 

int fd; 

{ 

return cmSendSt ring (fd, ACK_STRING); 

} 

cmAckError(fd) 

int fd; 

{ 

return cmSendSt ring (fd, ERROR_STRING) ; 

} 

int 

get Server Port ( s Service) 

char *sService; 

{ 

int iPort; 



if (strcmp(sService, GANITH. 


JMAME) == 0) { 






iPort = 


GANITH_PORT; 






} 


else if 


( st rcmp( sService, 


SHILP_NAME) == 0 


) { 




iPort = 


SHILP_PORT; 






} 


else if 


( st rcmp( sService, 


VAIDAK_NAME) == 


0) { 




iPort = 


VAIDAK_PORT; 






} 


else if 


( st rcmp( sService, 


SHASTRA_NAME) == 


0) { 




iPort = 


SHASTRA_PORT; 






} 


else if 


( st rcmp( sService, 


SCULPT_NAME) == 


0) { 




iPort = 


SCULPT_PORT; 






} 


else if 


( st rcmp( sService, 


BHAUTIK_NAME) == 


0) { 
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iPort = BHAUTIK_PORT; 
} else if (strcmp(sService, SPLINEX_NAME) == 0) { 

iPort = SPLINEX_PORT; 
} else if (strcmp(sService, GATI_NAME) == 0) { 

iPort = GATI_P0RT; 
} else if (strcmp(sService, VOLREND_NAME) == 0) { 

iPort = V0LREND_P0RT; 
} else if (strcmp(sService, SHLISP_NAME) == 0) { 

iPort = SHLISP_PORT; 
} else { 

iPort = 0; 
#ifdef DEBUG 

f printf ( stderr, "getServerPort ( )->Unknown Service %s\n", sService); 
#endif /* DEBUG */ 
} 

#ifdef DEBUG 

f printf ( stderr, "getServerPort ( )->Using iPort %d for %s\n", 
iPort, sService); 
#endif /* DEBUG */ 
return iPort; 



static void ModelHandler ( f d ) 

int fd; 

{ 

char *arg; 

int status = 0; 

arg = cmReceiveSt ring ( f d ) ; 
/* ...handler code . . . */ 
status = 1; 
if (status){ 

cmAckOk(fd) ; 
}else{ 

cmAckEr ror ( f d ) ; 

f ree(arg) ; 

} 

} 

/* 

* readSt ring ( iSocket ) - read string from interface 
*/ 

char * 
read St ring (iSocket) 

int iSocket; 



} 



{ 



int 
int 
int 
char 



*sbI0; 



fBlank; 



n ; 



fBlank = 1; 
while (fBlank) { 
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sblO = cmReceiveString(iSocket) ; 

n = strlen(sblO) ; 

for (i = 0; i < n; i++) { 

if ( !isspace(sbIO[i] ) ) { 
fBlank = 0; 
break; 

} 

} 

if (fBlank) { 
f ree(sblO) ; 

} 

} 

#if RS_DEBUG 

f printf ( stderr, " readSt ring : %s", sblO); 
#endif 

return (sblO); 

} 

/* 

* readStrings(iSocket) - read n strings and return ptr to char ** array 

* expects #, string . . . 
*/ 

char ** 
read St rings (iSocket) 

int iSocket; 



sscanf((sbln = readSt ring ( iSocket )) , "%d", &number); 
f ree( sbln) ; 

if (number <= 0) { 
return NULL; 

} 

names = (char **) malloc((l + number) * sizeof(char *)); 

for (i = 0; i < number; i++) { 
names [i] = readSt ring ( iSocket ) ; 
len = strlen(names [i] ) ; 
if (names [i] [len - 1] == '\n') { 
names [i] [len - 1] = 1 \0 1 ; 

} 

} 

names [number] = NULL; 
return (names) ; 



{ 



char 
int 
char 
int 



**names ; 
number, i; 



*sbln; 
len ; 



/* 



*/ 
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int 

cmFlush(fd) 

int fd; 

{ 

if (mplexTabffd] .flnUse == MPLEX_FREE) { 
return -1; 

} 

#define WANTnn 
#ifdef WANT 

int base, ptr, cnt, diff; 

unsigned int posn; 

posn = xdr_getpos(mplexXDRSEnc(fd) ) ; 

cnt = mplexTab [f d] . outSt ream->_cnt ; 

base = (int) mplexTab [fd] . outSt ream->_base; 

ptr = (int) mplexTab [fd] . outSt ream->_pt r; 

diff = ptr - base; 

if (diff == 0) { 

fprintf (stderr, "younds! diff is 0\n"); 

} 

fprintf (stderr, " (Bef )outPos= %u, Cnt= %d, Base= %lx, Ptr= %lx, Diff= %d\ 
n" , 

posn, cnt, base, ptr, diff); 

posn = xdr_getpos(mplexXDRSDec(fd) ) ; 
cnt = mplexTab [fd] . inSt ream->_cnt ; 
base = (int) mplexTab [fd] . inStream->_base; 
ptr = (int) mplexTab [fd] . inSt ream->_pt r; 
diff = ptr - base; 

fprintf (stderr, " InPos= %u, Cnt= %d, Base= %lx, Ptr= %lx, Diff= %d\ 

n" , 

posn, cnt, base, ptr, diff); 
#endif /* WANT */ 

#ifdef USE_STREAMS 

/* 

fprintf ( stderr, "mplexTab [%d] . outSt ream->_cnt = %d, diff = %d\n",fd, 
mplexTabffd] . inSt ream->_cnt, 

mplexTab [fd] . inSt ream->_pt r-mplexTab [fd] . inSt ream->_base) ; 
*/ 

if (fflush(mplexTab [fd] .outStream) == EOF) { 
perrorC'ff lush( )" ) ; 
return -1; 

} 

#endif /* USE_STREAMS */ 

#ifdef WANT 

posn = xdr_getpos(mplexXDRSEnc(fd) ) ; 

cnt = mplexTab [fd] . outSt ream->_cnt ; 

base = (int) mplexTab [fd] . outSt ream->_base; 

ptr = (int) mplexTab [fd] . outSt ream->_pt r; 

diff = ptr - base; 

fprintf (stderr, " (Af t )outPos= %u, Cnt= %d, Base= %lx, Ptr= %lx, Diff= %d\ 
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n" , 

posn, cnt, base, ptr, diff); 



#endif 



/* WANT */ 



} 



cmMain(argc, argv) 



int argc; 



char **argv; 



{ 



int iSocket; 
int iSockNew; 

struct sockaddr_in salnNew; 
int iLength, iOption; 



cmOpenServerSocketC'shilp", 0, NULL, &iSocket, NULL); 
#ifdef DEBUG 

f printf ( stderr, "Tcp Socket has port #%d\n", ntohs ( salnServer. sin_port) ) ; 
f printf ( stderr, "Got socket descr %d for connect\n", iSocket); 



if (UstenUSocket, 5) != 0) { 
pe morC 1 listen ( )" ) ; 
return -1; 

} 

iOption = 1; 

if (setsockopt(iSocket, S0L_S0CKET, SO_REUSEADDR, &iOption, 
sizeof (iOption) ) != 0){ 
perror("setsockopt( ) S0L_S0CKET, SO_REUSEADDR" ) ; 
return -1; 

} 

/* allow socket to be reused locally, foreign diff */ 

if ((iSockNew = accept ( iSocket, &saInNew, &iLength)) < 0) { 
perror("accept( )" ) ; 
return -1; 

} 

#ifdef DEBUG 

f printf ( stderr, "Got socket descriptor %d for client connection\n" , 
iSockNew) ; 
#endif /* DEBUG */ 

close( iSocket ) ; 

f printf ( stderr, "%d, %s, %d\n", argc, argv[0], iSockNew); 
return 0; 



#endif 



/* DEBUG */ 



} 
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